UserForm'dan tarih

[nunikmakarios]

Sevgili Arkadaşlar

Kod yazmaya yeni başladım Ekli dosyadaki gibi bir kod yazdım ancak aşağıda kırmızı işaretli satırda hata veriyor. Nedeni hakkında bilgi verir misiniz?

Private Sub CommandButton1_Click()
Cells(1, 1) = TextBox2
Cells(2, 1) = TextBox3
Unload UserForm1
Range("b:b") = ""
tar = Cells(1, 1)
If Weekday(Cells(1, 1), vbMonday) = 6 Then tar = Cells(1, 1) + 2
If Weekday(Cells(1, 1), vbMonday) = 7 Then tar = Cells(1, 1) + 1
gun = Cells(2, 1) - Cells(1, 1) + 1
For i = 1 To gun
Cells(i, 2) = tar
If tar = Cells(2, 1) Then GoTo 100
tar = tar + 1
gn = Weekday(tar, vbMonday)
If gn = 6 Then tar = tar + 2
If gn = 7 Then tar = tar + 1
Next i
100 Cells(1, 3) = Cells(1, 1) & " ile " & Cells(2, 1) & " arasında bayram günleri hariç " & i & " çalışma günü vardır"
If Cells(1, 1) = "" Then Cells(1, 3) = ""
If Cells(1, 1) = "" Then Cells(1, 2) = ""
End Sub

 

[Orion1]

İlgili satırı aşağıdaki ile değiştiriniz.

gun=worksheetfunction.sum(range("A1:A2"))+1

 

[Civan Jack]

Aşağıdaki ??????

 

[Orion1]

Aşağıdaki ??????

2 numaralı mesaja tekrar bakınız.

 

[Civan Jack]

Teşekkürler Evren bey,

 

[nunikmakarios]

teşekkür

Teşekkürler ama bu defa da tar = tar + 1 satırında hata verdi

İlgili satırı aşağıdaki ile değiştiriniz.

gun=worksheetfunction.sum(range("A1:A2"))+1

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
Cells(1, 1) = [B][COLOR="Red"]CDate(TextBox2)[/COLOR][/B]
Cells(2, 1) = [B][COLOR="Red"]CDate(TextBox3)[/COLOR][/B]
Unload UserForm1
Range("b:b") = ""
tar = Cells(1, 1)
If Weekday(Cells(1, 1), vbMonday) = 6 Then tar = Cells(1, 1) + 2
If Weekday(Cells(1, 1), vbMonday) = 7 Then tar = Cells(1, 1) + 1
gun = Cells(2, 1) - Cells(1, 1) + 1
gun = [B][COLOR="Red"]WorksheetFunction.Sum(Range("A1:A2"))[/COLOR][/B]
For i = 1 To gun
Cells(i, 2) = tar
If tar = Cells(2, 1) Then GoTo 100
tar = tar + 1
gn = Weekday(tar, vbMonday)
If gn = 6 Then tar = tar + 2
If gn = 7 Then tar = tar + 1
Next i
100 Cells(1, 3) = Cells(1, 1) & " ile " & Cells(2, 1) & " arasında bayram günleri hariç " & i & " çalışma günü vardır"
If Cells(1, 1) = "" Then Cells(1, 3) = ""
If Cells(1, 1) = "" Then Cells(1, 2) = ""
End Sub