- Katılım
- 17 Kasım 2009
- Mesajlar
- 295
- Excel Vers. ve Dili
- 2010
- Altın Üyelik Bitiş Tarihi
- 24-12-2023
merhaba arkadaşlar userformda commandbutton ile aşağıdaki 1.sıra excelde tek satırı kullanacak 2.sıra son dolu satırdan tek satır kullanacak.
bu şekilde döngü ile yapmak istiyorum yardıma ihtiyacım var.
Son_Dolu_Satir = Sheets("sayfa3").Range("C65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
'--------------------- 1.SIRA----------------------------------------------------------------
If izindilekcesi.TextBox18.Value Then Sheets("sayfa3").Range("D" & Bos_Satir) = TextBox18
If izindilekcesi.TextBox13.Value Then Sheets("sayfa3").Range("C" & Bos_Satir) = TextBox13
If izindilekcesi.TextBox13.Value Then Sheets("sayfa3").Range("F" & Bos_Satir) = "İ"
If izindilekcesi.TextBox13.Value Then Sheets("sayfa3").Range("E" & Bos_Satir) = "Veli isteği ile izinli"
'--------------------- 2.SIRA----------------------------------------------------------------
If izindilekcesi.TextBox19.Value Then Sheets("sayfa3").Range("D" & Bos_Satir) = TextBox19
If izindilekcesi.TextBox14.Value Then Sheets("sayfa3").Range("C" & Bos_Satir) = TextBox14
If izindilekcesi.TextBox14.Value Then Sheets("sayfa3").Range("F" & Bos_Satir) = "İ"
If izindilekcesi.TextBox14.Value Then Sheets("sayfa3").Range("E" & Bos_Satir) = "Veli isteği ile izinli"
Dim del As Control
For Each del In izindilekcesi.Controls
Next del
bu şekilde döngü ile yapmak istiyorum yardıma ihtiyacım var.
Son_Dolu_Satir = Sheets("sayfa3").Range("C65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
'--------------------- 1.SIRA----------------------------------------------------------------
If izindilekcesi.TextBox18.Value Then Sheets("sayfa3").Range("D" & Bos_Satir) = TextBox18
If izindilekcesi.TextBox13.Value Then Sheets("sayfa3").Range("C" & Bos_Satir) = TextBox13
If izindilekcesi.TextBox13.Value Then Sheets("sayfa3").Range("F" & Bos_Satir) = "İ"
If izindilekcesi.TextBox13.Value Then Sheets("sayfa3").Range("E" & Bos_Satir) = "Veli isteği ile izinli"
'--------------------- 2.SIRA----------------------------------------------------------------
If izindilekcesi.TextBox19.Value Then Sheets("sayfa3").Range("D" & Bos_Satir) = TextBox19
If izindilekcesi.TextBox14.Value Then Sheets("sayfa3").Range("C" & Bos_Satir) = TextBox14
If izindilekcesi.TextBox14.Value Then Sheets("sayfa3").Range("F" & Bos_Satir) = "İ"
If izindilekcesi.TextBox14.Value Then Sheets("sayfa3").Range("E" & Bos_Satir) = "Veli isteği ile izinli"
Dim del As Control
For Each del In izindilekcesi.Controls
Next del