Dolu ise Aktar

[tamer060]

Merhabalar arkadaşlar aşağıdaki gibi sıkıntım var dolu ise katarma yapmasını istiyorum örn.tede scan yaptım resimli. Şimdiden Teşekkür ederim


* M sütunumuzda görüldüğü gibi 4 satır bilgi var. BU BİLGİLER YÜLEMEDE bir araca yüklenecektir. (yani ref.no plaka gibi A-L arası bilgiler 4 satırdada aynı)
* Command buton 2 ye bastığımızda karşımıza form açılır. Bu forma bilgi girip kaydet dediğim zaman bir satıra kaydediyor. ama ben 1 satıra değil M sütununda 4 satır dolu ise 4 satıra kaydet mesini istiyorum. çünkü bilgiler aynı 1 aracın.
* M Sutununa bilgi girilmeden Boton2'ye basıp girilen bilgiler girilmez. yani M sutunu kaç satı olu ise A-L arası buttun2 ye basıp girdiğim bilgileri o kadar satıra atacak A-L arasında

 

[tamer060]

Kısaca Button2 Ye Tıklayıp forma Veri Girişi Yaptığımda. M sütununda dolu olan satır kadar A-L hücresine forma yadığım verileri eklemesini istiyorum. Saygılarımla

 

[Ömer]

Merhaba,

Yanlış anlamışta olabilirim. Kodları aşağıdaki gibi değiştirin. Hücre aralıkları yanlış ise siz değiştirirsiniz.

Private Sub CommandButton1_Click()
son = [M65536].End(3).Row
Range("B3:B" & son) = TextBox11.Text:
Range("C3:C" & son) = TextBox12.Text
Range("D3:D" & son) = TextBox13.Text
Range("E3:B" & son) = TextBox14.Text
Range("F3:E" & son) = TextBox15.Text
Range("G3:G" & son) = TextBox16.Text
Range("H3:H" & son) = TextBox17.Text
Range("I3:I" & son) = TextBox18.Text
Range("J3:J" & son) = TextBox19.Text
Range("K3:K" & son) = TextBox20.Text
Range("L3:L" & son) = TextBox21.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 = ""
TextBox21.Text = ""
End Sub

.

 

[tamer060]

Elinize Sağlık Ömer Bey İstediğim Gibi Olmuş Hücre aralıklarını değiştiririm Çok Teşşekkür ederim Saygılarımla.

 

[Orion1]

alternatif.Kodların kısaltılmış hali.

Private Sub CommandButton1_Click()
Dim i As Byte
son = [M65536].End(3).Row
For i = 2 To 12
    Range(Cells(3, i), Cells(i, son)).Value = Controls("Textbox" & i + 9).Text
    Controls("Textbox" & i + 9).Text = ""
Next
aciklama = "Kayıt yapıldı"
buton = vbOKOnly + vbInformation + vbDefaultButton1
baslik = "IDC BİLGİ GİRİŞİ"
MsgBox aciklama, buton, baslik
End Sub

 

[tamer060]

Güzel Çalışma teşekkür ederim For i döngüsü üzerine baya bir çalışmam lazım anlaşıldı... Saygılarımla

 

[Orion1]

Güzel Çalışma teşekkür ederim For i döngüsü üzerine baya bir çalışmam lazım anlaşıldı... Saygılarımla

Rica ederim.
İyi çalışmalar.

 

[tamer060]

Aşağıdaki Kodda Satır dolu ise alta yazıyor ama Dolu satırıda son girdiğim bilgiye göre değiştiriyor. Ben ise Dolu satırı değiştirmesin alt satıra eklesin istiyorum. Yardımcı olabilirmisiniz?


Private Sub CommandButton1_Click()
son = [M65536].End(3).Row
Range("B3:B" & son) = TextBox11.Text:
Range("C3:C" & son) = TextBox12.Text
Range("D3" & son) = TextBox13.Text
Range("E3:B" & son) = TextBox14.Text
Range("F3:E" & son) = TextBox15.Text
Range("G3:G" & son) = TextBox16.Text
Range("H3:H" & son) = TextBox17.Text
Range("I3:I" & son) = TextBox18.Text
Range("J3:J" & son) = TextBox19.Text
Range("K3:K" & son) = TextBox20.Text
Range("L3:L" & son) = TextBox21.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 = ""
TextBox21.Text = ""
End Sub

 

[Orion1]

son = [M65536].End(3).Row+1

 

[tamer060]

Evren Bey +1 yaptığımızda 1 satıra daha ekleme yapıyor dosya ek'tedir incelermisiniz. daha anlaşılır olur sanırım.Saygılarımla

 

[Orion1]

Evren Bey +1 yaptığımızda 1 satıra daha ekleme yapıyor dosya ek'tedir incelermisiniz. daha anlaşılır olur sanırım.Saygılarımla

Ben bir şey anlamadım.Bu gün kafamı fazlada zorlamak istemiyorum.
Yeni bir başlık açarak sorunuzu sorunuz.
Belki başka arkadaşlar yardımcı olacaktır.

 

[tamer060]

tamam evren bey