Soru Combobox13 ve Combobox14 birlikte kullanma

[balanar]

Merhaba,

Sarı işaretli alanda Tekte combobox13 veya combobox14 ü seçip CommandButton14 e bastıgımda rapor olusturuyor..

Combobox13 ve Combobox14 birlikte kullanmak istediğimde rapor oluşturmuyor.. Bu konuda yardımcı olabilir misiniz?

 

[Mustafa MUTLU]

RAPORLA Butonunuza aşağıdaki kodu ekleyip deneyin.

Private Sub CommandButton14_Click()
Dim MM, XX, YY, MSTF

Sheets("Rapor").Range("A3:BF65000").ClearContents

XX = 4
For MSTF = 3 To Sheets("Sayfa1").Range("A65000").End(xlUp).Row
If ComboBox13 = "" Then GoTo Git1
If Sheets("Sayfa1").Cells(MSTF, "D") = ComboBox13.Text Then
Git1:
If ComboBox14 = "" Then GoTo Git2
If Sheets("Sayfa1").Cells(MSTF, "F") = ComboBox14.Text Then
Git2:
For YY = 1 To 58
Sheets("Rapor").Cells(XX, YY) = Sheets("Sayfa1").Cells(MSTF, YY)
Next
XX = XX + 1
End If
End If

Next
Sheets("Rapor").Cells(3, "A") = XX - 4

Unload Me
Sheets("Rapor").Select

End Sub

 

[balanar]

teşekkür ediyorum hocam oldu..

 

[Mustafa MUTLU]

teşekkür ediyorum hocam oldu..

Rica ederim.
İyi geceler