verileri userform üzerine alma

[Hacı Bayram ÖZKAN]

arkadaşlar ekli dosyayı sitedeki Ömer bey hazırlamıştı, yalnız bir yerde küçük bir hata var bunu dosyamda anlattım buna bakarsanız sevinirim. Saygılarımla

 

[Hacı Bayram ÖZKAN]

arkadaşlar bu dosyaya bir bakabilirmisiniz?

 

[İhsan Tank]

arkadaşlar ekli dosyayı sitedeki Ömer bey hazırlamıştı, yalnız bir yerde küçük bir hata var bunu dosyamda anlattım buna bakarsanız sevinirim. Saygılarımla

Merhaba
Kodu bununla değişir misiniz_?

Private Sub CommandButton1_Click()
     Dim d, deg, i As Long, say As Long, sor As String
 
    Set d = CreateObject("Scripting.Dictionary")
 
    TextBox1.Text = "": CommandButton1.Caption = "Veri Yok"
 
    On Error Resume Next
    sor = Application.InputBox("Hangi Yıl", "Olay Sayısı")
    If sor = False Then Exit Sub
 
    CommandButton1.Caption = sor & " Yıl'ı Olayı"
    
    For i = 2 To Cells(Rows.Count, "H").End(xlUp).Row
       If Cells(i, "H") <> "" Then
        If Split(Cells(i, "H"), "/")(0) = sor Then
            deg = Cells(i, "H")
            If Not d.exists(deg) Then
                say = say + 1
                d.Add deg, say
            End If
        End If
        End If
    Next i
 
    TextBox1.Text = say
 
End Sub

Ayrıca Ömer Hocam'ada teşekkür ederim. Kusura bakmasın az ekleme yaptım.

 

[Hacı Bayram ÖZKAN]

teşekkürler abi hepsi bu kadar, eksik olma dua ile kal.

 

[İhsan Tank]

teşekkürler abi hepsi bu kadar, eksik olma dua ile kal.

Rica ederim
:keyif: