Ανανέωση ιστοσελίδας
ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [Γενικά] βοηθεια για να μικρυνει το VBA
Κανόνες του Forum Ετικέτες Εγγραφή Βοήθεια - Συχνές Ερωτήσεις Λίστα Μελών Ημερολόγιο

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 02-10-22, 20:17
Όνομα: Χρηστος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
  
Εγγραφή: 02-10-2022
Μηνύματα: 2
Προεπιλογή βοηθεια για να μικρυνει το VBA
Καλησπέρα σε όλους. Παρακαλώ θα ήθελα τις γνώσεις σας ώστε να μπορέσω να μικρύνω τον κώδικα στο vba που έχω γράψει. ευχαριστω πολύ.









Private Sub CheckBox1_Change()
If CheckBox1.Value = True Then

Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D3") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E3")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox2_Change()
If CheckBox2.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D4") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E4")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox3_Change()
If CheckBox3.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D5") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E5")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox4_Change()
If CheckBox4.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D6") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E6")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub

Private Sub CheckBox5_Change()
If CheckBox5.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D7") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E7")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox6_Change()

If CheckBox6.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D8") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E8")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox7_Change()

If CheckBox7.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D9") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E9")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox8_Change()


If CheckBox8.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D10") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E10")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox9_Change()


If CheckBox9.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D11") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E11")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox10_Change()


If CheckBox10.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D12") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E12")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox11_Change()


If CheckBox11.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D13") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E13")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox12_Change()


If CheckBox12.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D14") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E14")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox13_Change()


If CheckBox13.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D15") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E15")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox14_Change()


If CheckBox14.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D16") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E16")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox15_Change()


If CheckBox15.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D17") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E17")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox16_Change()


If CheckBox16.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D18") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E18")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox17_Change()

If CheckBox17.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D19") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E19")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox18_Change()


If CheckBox18.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D20") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E20")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox19_Change()


If CheckBox19.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D21") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E21")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox20_Change()


If CheckBox20.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D22") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E22")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox21_Change()


If CheckBox21.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D23") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E23")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox22_Change()

End Sub
If CheckBox22.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D24") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E24")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox23_Change()


If CheckBox23.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D25") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E25")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox24_Change()


If CheckBox24.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D26") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E26")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox25_Change()


If CheckBox25.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D27") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E27")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True
ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox26_Change()

If CheckBox26.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D28") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E28")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True
ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox27_Change()


If CheckBox27.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D29") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E29")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True
ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox28_Change()


If CheckBox28.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D30") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E30")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox29_Change()


If CheckBox29.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D31") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E31")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox30_Change()


If CheckBox30.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D32") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E32")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox31_Change()


If CheckBox31.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D33") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E33")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox32_Change()


If CheckBox32.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D34") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E34")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox33_Change()


If CheckBox33.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D35") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E35")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox34_Change()


If CheckBox34.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D36") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E36")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox35_Change()


If CheckBox35.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D37") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E37")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox36_Change()


If CheckBox36.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D38") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E38")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub
Private Sub CheckBox37_Change()


If CheckBox37.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D39") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E39")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub

Private Sub CheckBox38_Change()


If CheckBox38.Value = True Then
Dim Msg As String
Msg = Msg & Worksheets("Frue Verladung").Range("D40") & vbNewLine & " " & "WAP:" & " " & Worksheets("Frue Verladung").Range("E40")

Sheets("HELP").Range("D3") = Msg
Worksheets("HELP").Visible = True

ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True

End If
Worksheets("HELP").Visible = False
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)


If Worksheets("Frue Verladung").Range("O3").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d3").Value) > 2 Then
CheckBox1.Visible = True
CheckBox1.Enabled = True
Else
CheckBox1.Visible = False
CheckBox1.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O4").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d4").Value) > 2 Then
CheckBox2.Visible = True
CheckBox2.Enabled = True
Else
CheckBox2.Visible = False
CheckBox2.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O5").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d5").Value) > 2 Then
CheckBox3.Visible = True
CheckBox3.Enabled = True
Else
CheckBox3.Visible = False
CheckBox3.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O6").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d6").Value) > 2 Then
CheckBox4.Visible = True
CheckBox4.Enabled = True
Else
CheckBox4.Visible = False
CheckBox4.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O7").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d7").Value) > 2 Then
CheckBox5.Visible = True
CheckBox5.Enabled = True
Else
CheckBox5.Visible = False
CheckBox5.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O8").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d8").Value) > 2 Then
CheckBox6.Visible = True
CheckBox6.Enabled = True
Else
CheckBox6.Visible = False
CheckBox6.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O9").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d9").Value) > 2 Then
CheckBox7.Visible = True
CheckBox7.Enabled = True
Else
CheckBox7.Visible = False
CheckBox7.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O10").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d10").Value) > 2 Then
CheckBox8.Visible = True
CheckBox8.Enabled = True
Else
CheckBox8.Visible = False
CheckBox8.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O11").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d11").Value) > 2 Then
CheckBox9.Visible = True
CheckBox9.Enabled = True
Else
CheckBox9.Visible = False
CheckBox9.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O12").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d12").Value) > 2 Then
CheckBox10.Visible = True
CheckBox10.Enabled = True
Else
CheckBox10.Visible = False
CheckBox10.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O13").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d13").Value) > 2 Then
CheckBox11.Visible = True
CheckBox11.Enabled = True
Else
CheckBox11.Visible = False
CheckBox11.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O14").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d14").Value) > 2 Then
CheckBox12.Visible = True
CheckBox12.Enabled = True
Else
CheckBox12.Visible = False
CheckBox12.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O15").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d15").Value) > 2 Then
CheckBox13.Visible = True
CheckBox13.Enabled = True
Else
CheckBox13.Visible = False
CheckBox13.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O16").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d16").Value) > 2 Then
CheckBox14.Visible = True
CheckBox14.Enabled = True
Else
CheckBox14.Visible = False
CheckBox14.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O17").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d17").Value) > 2 Then
CheckBox15.Visible = True
CheckBox15.Enabled = True
Else
CheckBox15.Visible = False
CheckBox15.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O18").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d18").Value) > 2 Then
CheckBox16.Visible = True
CheckBox16.Enabled = True
Else
CheckBox16.Visible = False
CheckBox16.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O19").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d19").Value) > 2 Then
CheckBox17.Visible = True
CheckBox17.Enabled = True
Else
CheckBox17.Visible = False
CheckBox17.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O20").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d20").Value) > 2 Then
CheckBox18.Visible = True
CheckBox18.Enabled = True
Else
CheckBox18.Visible = False
CheckBox18.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O21").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d21").Value) > 2 Then
CheckBox19.Visible = True
CheckBox19.Enabled = True
Else
CheckBox19.Visible = False
CheckBox19.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O22").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d22").Value) > 2 Then
CheckBox20.Visible = True
CheckBox20.Enabled = True
Else
CheckBox20.Visible = False
CheckBox20.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O23").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d23").Value) > 2 Then
CheckBox21.Visible = True
CheckBox21.Enabled = True
Else
CheckBox21.Visible = False
CheckBox21.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O24").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d24").Value) > 2 Then
CheckBox22.Visible = True
CheckBox22.Enabled = True
Else
CheckBox22.Visible = False
CheckBox22.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O25").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d25").Value) > 2 Then
CheckBox23.Visible = True
CheckBox23.Enabled = True
Else
CheckBox23.Visible = False
CheckBox23.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O26").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d26").Value) > 2 Then
CheckBox24.Visible = True
CheckBox24.Enabled = True
Else
CheckBox24.Visible = False
CheckBox24.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O27").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d27").Value) > 2 Then
CheckBox25.Visible = True
CheckBox25.Enabled = True
Else
CheckBox25.Visible = False
CheckBox25.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O28").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d28").Value) > 2 Then
CheckBox26.Visible = True
CheckBox26.Enabled = True
Else
CheckBox26.Visible = False
CheckBox26.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O29").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d29").Value) > 2 Then
CheckBox27.Visible = True
CheckBox27.Enabled = True
Else
CheckBox27.Visible = False
CheckBox27.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O30").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d30").Value) > 2 Then
CheckBox28.Visible = True
CheckBox28.Enabled = True
Else
CheckBox28.Visible = False
CheckBox28.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O31").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d31").Value) > 2 Then
CheckBox29.Visible = True
CheckBox29.Enabled = True
Else
CheckBox29.Visible = False
CheckBox29.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O32").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d32").Value) > 2 Then
CheckBox30.Visible = True
CheckBox30.Enabled = True
Else
CheckBox30.Visible = False
CheckBox30.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O33").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d33").Value) > 2 Then
CheckBox31.Visible = True
CheckBox31.Enabled = True
Else
CheckBox31.Visible = False
CheckBox31.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O34").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d34").Value) > 2 Then
CheckBox32.Visible = True
CheckBox32.Enabled = True
Else
CheckBox32.Visible = False
CheckBox32.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O35").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d35").Value) > 2 Then
CheckBox33.Visible = True
CheckBox33.Enabled = True
Else
CheckBox33.Visible = False
CheckBox33.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O36").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d36").Value) > 2 Then
CheckBox34.Visible = True
CheckBox34.Enabled = True
Else
CheckBox34.Visible = False
CheckBox34.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O37").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d37").Value) > 2 Then
CheckBox35.Visible = True
CheckBox35.Enabled = True
Else
CheckBox35.Visible = False
CheckBox35.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O38").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d38").Value) > 2 Then
CheckBox36.Visible = True
CheckBox36.Enabled = True
Else
CheckBox36.Visible = False
CheckBox36.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O39").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d39").Value) > 2 Then
CheckBox37.Visible = True
CheckBox37.Enabled = True
Else
CheckBox37.Visible = False
CheckBox37.Enabled = False
End If

If Worksheets("Frue Verladung").Range("O40").Value = "Fertig" And Len(Worksheets("Frue Verladung").Range("d40").Value) > 2 Then
CheckBox38.Visible = True
CheckBox38.Enabled = True
Else
CheckBox38.Visible = False
CheckBox38.Enabled = False
End If



End Sub
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm Verladung Blanko_2.xlsm (314,1 KB, 13 εμφανίσεις)
Τελευταία επεξεργασία από το χρήστη Bline_Christos : 02-10-22 στις 23:27.
Απάντηση με παράθεση
  #2  
Παλιά 02-10-22, 21:43
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
  
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή
Καλησπέρα

Δοκίμασε τον κώδικα:

Κώδικας:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range, c As Range, bln As Boolean

    Set rng = Range("O3:O40")
    For Each c In rng
        bln = c.Value = "Fertig"
        Me.OLEObjects("CheckBox" & c.Row - 2).Visible = bln
        Me.OLEObjects("CheckBox" & c.Row - 2).Enabled = bln
    Next
    
End Sub
Απάντηση με παράθεση
  #3  
Παλιά 02-10-22, 23:24
Όνομα: Χρηστος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
  
Εγγραφή: 02-10-2022
Μηνύματα: 2
Προεπιλογή
Σας ευχαριστω πολυ για την αμεση αποκριση!!!
Απάντηση με παράθεση
Απάντηση στο θέμα

« Προηγούμενο Θέμα | Επόμενο Θέμα »

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας
Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Η ώρα είναι 18:34.