o2l3m
Altın Üye
- Katılım
- 2 Mart 2005
- Mesajlar
- 156
- Excel Vers. ve Dili
- Microsoft® Excel ® 2016 (16.0.5413.1000) MSO (16.0.5413.1000) 32 bit
- Altın Üyelik Bitiş Tarihi
- 14-10-2026
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
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