verileri userform üzerine alma

[Hacı Bayram ÖZKAN]

arkadaşlar isteğimi ekli dosyamda anlattım bana yardımcı olursanız sevinirim. teşekkürler. dua ile kalın.

 

[Ömer]

arkadaşlar isteğimi ekli dosyamda anlattım bana yardımcı olursanız sevinirim. teşekkürler. dua ile kalın.

Merhaba,

Bu şekilde deneyin.

Private Sub CommandButton1_Click()
 
    Dim d, deg, i As Long, say As Long, sor As String
 
    Set d = CreateObject("Scripting.Dictionary")
 
    TextBox1.Text = ""
 
    On Error Resume Next
    sor = Application.InputBox("Hangi Yıl", "Olay Sayısı")
    If sor = False Then Exit Sub
 
    For i = 1 To Cells(Rows.Count, "H").End(xlUp).Row
        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
    Next i
 
    TextBox1.Text = say
 
End Sub

.

 

[Hacı Bayram ÖZKAN]

Ömer bey eline sağlık, dua ile kal iyi çalışmalar, eksik olmayın.

 

[Ömer]

Rica ederim. Konuyu inceleyecek olanlar için dosyanızı silmeseydiniz daha doğru olurdu sanırım. Bu şekilde olan konular forumun teması olan paylaşım amacına ulaşmamış olur diye düşünüyorum.

.

 

[Hacı Bayram ÖZKAN]

tamam ekliyorum. bu dosya yı bir an kişisel veriler gibi algıladım. o yüzden sildim.

 

[Hacı Bayram ÖZKAN]

Ömer bey; her yıl için Label yazısıyla "2006 yılı olayı" şeklinde yazmasını sağlarmısın. yani yer yıl için labelde yazacak bu değer TextBox1 kutusunda gözüküyor, teşekkürler.

 

[Hacı Bayram ÖZKAN]

ömer bey başlık satırı ekleyince (olunca) değere 1 fazlasını ekliyor. buna da bakarmısın?

 

[Ömer]

ömer bey başlık satırı ekleyince (olunca) değere 1 fazlasını ekliyor. buna da bakarmısın?

Döngüyü 2. satırdan başlatmanız yeterli olur.

1 yerine 2 yazarak deneyin.

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 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
    Next i
 
    TextBox1.Text = say
 
End Sub

.

 

[Hacı Bayram ÖZKAN]

ömer bey tamam oldu, 6 mesajıma bakabildiniz mi? biraz fazla şey istiyoruz ama kusura bakma.

 

[Ömer]

ömer bey tamam oldu, 6 mesajıma bakabildiniz mi? biraz fazla şey istiyoruz ama kusura bakma.

#8 numaralı mesajı düzenledim.

 

[Hacı Bayram ÖZKAN]

1 yerine 2 yazarak denedim olmadı, h sütuna değer mi vermem lazım.

 

[Ömer]

1 yerine 2 yazarak denedim olmadı, h sütuna değer mi vermem lazım.

Sonucların yanlış olduğu dosyayı ekleyip, hangi değeri verince şu haliyle kaç üretiyor, olması gereken nedir?

.

 

[Hacı Bayram ÖZKAN]

ömer teşekkürler eksik olmayın, zahmet verdim, iyi çalışmalar