boş satıra ekle

[tamer060]

Arkadaşlar Ek'teki dosyada belirttiğim gibi sıkıntım var yardımcı olurmusunuz?

 

[Ömer]

Merhaba,

son = [M65536].End(3).Row
[COLOR=red]son1 = [B65536].End(3).Row + 1
[/COLOR]Range("B" & [COLOR=red]son1 [/COLOR]& ":B" & son) = TextBox11.Text

Bu şekilde deneyin. Diğerlerini siz düzenlersiniz..

.

 

[tamer060]

Ömer Bey aşağıdaki gibi yaptım ama olmadı sorun nerde olabilir?


Private Sub CommandButton1_Click()
son = [M65536].End(3).Row
son1 = [B65536].End(3).Row + 1
Range("B2" & son1 & ":B" & son) = TextBox11.Text
Range("C2" & son1 & ":C" & son) = TextBox12.Text
Range("D2" & son1 & "" & son) = TextBox13.Text
Range("E2" & son1 & ":E" & son) = TextBox14.Text
Range("F2" & son1 & ":F" & son) = TextBox15.Text
Range("G2" & son1 & ":G" & son) = TextBox16.Text
Range("H2" & son1 & ":H" & son) = TextBox17.Text
Range("I2" & son1 & ":I" & son) = TextBox18.Text
Range("J2" & son1 & ":J" & son) = TextBox19.Text
Range("K2" & son1 & ":K" & son) = TextBox20.Text
aciklama = "Kayıt yapıldı"
buton = vbOKOnly + vbInformation + vbDefaultButton1
baslik = "IDC BİLGİ GİRİŞİ"
MsgBox aciklama, buton, baslik
TextBox11.Text = "": TextBox12.Text = ""
TextBox13.Text = "": TextBox14.Text = ""
TextBox15.Text = "": TextBox16.Text = ""
TextBox17.Text = "": TextBox18.Text = ""
TextBox19.Text = "": TextBox20.Text = ""

 

[tamer060]

Kodu Yanlış anlamışım ömer hocam düzelttim oldu çok sağolun


Private Sub CommandButton1_Click()
son = [M65536].End(3).Row
son1 = [B65536].End(3).Row + 1
Range("B" & son & ":B" & son1) = TextBox11.Text
Range("C" & son & ":C" & son1) = TextBox12.Text
Range("D" & son & "" & son1) = TextBox13.Text
Range("E" & son & ":E" & son1) = TextBox14.Text
Range("F" & son & ":F" & son1) = TextBox15.Text
Range("G" & son & ":G" & son1) = TextBox16.Text
Range("H" & son & ":H" & son1) = TextBox17.Text
Range("I" & son & ":I" & son1) = TextBox18.Text
Range("J" & son & ":J" & son1) = TextBox19.Text
Range("K" & son & ":K" & son1) = TextBox20.Text
aciklama = "Kayıt yapıldı"
buton = vbOKOnly + vbInformation + vbDefaultButton1
baslik = "IDC BİLGİ GİRİŞİ"
MsgBox aciklama, buton, baslik
TextBox11.Text = "": TextBox12.Text = ""
TextBox13.Text = "": TextBox14.Text = ""
TextBox15.Text = "": TextBox16.Text = ""
TextBox17.Text = "": TextBox18.Text = ""
TextBox19.Text = "": TextBox20.Text = ""