Userform dan veri gönderme ve güncelleme

[o2l3m]

1 den 4 e kadar olan sütunlarda satır olarak aynı giriş olursa üzerine güncelleme yapabilirmi?
Güncel kod nasıl olmalı?

Dim dizi() As Variant
dizi = Array(20, 25, 24, 26, 27, 21, 22, 23)
Dim Baslik() As Variant
Baslik = Array(12, 17, 16, 18, 19, 13, 14, 15)
For X = 0 To UBound(dizi)
If Me.Controls("textbox" & dizi(X)).Value <> Empty Then
son = s.Range("A" & Rows.Count).End(xlUp).Row + 1
s.Cells(son, 1) = CDate(Format(TextBox8.Text, "dd.mm.yyyy"))
s.Cells(son, 2) = ComboBox1.Text
s.Cells(son, 3) = TextBox3.Text
s.Cells(son, 4) = Me.Controls("textbox" & Baslik(X)).Text
s.Cells(son, 5) = CLng(Me.Controls("textbox" & dizi(X)).Text)
End If
Next X
Sayi = Sayi + 1

 

[o2l3m]

Yardım lütfen..

 

[askm]

Örnek dosyanız olursa yardımcı olabiliriz. Ama çokeğersay (countifs) işlemini deneyin.

 

[o2l3m]

Örnek dosyayı ekledim.

 

[askm]

Private Sub CommandButton1_Click()

    Dim dizi() As Variant
    dizi = Array(20, 25, 24, 26, 27, 21, 22, 23)
    Dim Baslik() As Variant
    Baslik = Array(12, 17, 16, 18, 19, 13, 14, 15)
With Sayfa3
    For X = 0 To UBound(dizi)
        If Me.Controls("textbox" & dizi(X)).Value <> Empty Then
            son = .Range("A" & Rows.Count).End(xlUp).Row + 1
            Say = WorksheetFunction.CountIfs(.Range("A3:A" & son), CDate(Format(TextBox8.Text, "dd.mm.yyyy")), .Range("B3:B" & son), ComboBox1.Text, .Range("C3:C" & son), TextBox3.Text, .Range("D3:D" & son), Me.Controls("textbox" & Baslik(X)).Text)
            If Say = 0 Then
                Satir = son
            Else
                For i = 3 To son
                    If CDate(Format(TextBox8.Text, "dd.mm.yyyy")) = CDate(.Cells(i, 1)) And ComboBox1.Text = .Cells(i, 2) And TextBox3.Text = .Cells(i, 3) And Me.Controls("textbox" & Baslik(X)).Text = Cells(i, 4) Then
                        Satir = i
                        Exit For
                    End If
                Next i
            End If
            
    
                Sayfa3.Cells(Satir, 1) = CDate(Format(TextBox8.Text, "dd.mm.yyyy"))
                Sayfa3.Cells(Satir, 2) = ComboBox1.Text
                Sayfa3.Cells(Satir, 3) = TextBox3.Text
                Sayfa3.Cells(Satir, 4) = Me.Controls("textbox" & Baslik(X)).Text
                Sayfa3.Cells(Satir, 5) = CLng(Me.Controls("textbox" & dizi(X)).Text)
                
        End If
    Next X
End With
    Sayi = Sayi + 1
   
    son = Sayfa3.Range("A" & Rows.Count).End(xlUp).Row
    
End Sub

 

[bozacioglu]

kolay gelsin iyi çalışmalar.
TextBox1 den TextBox50 ye kadar olan textboxlarımın name lerini Ornek1,Ornek2... şeklinde değiştiren bir vba döngüsü arıyorum.
2 gündür bakmadığım konu kalmadı.
Bu konuda yardımcı olursanız çok sevinirim.
Teşekkür ederim. İyi Çalışmalar