Satır satır nasıl yazmasını sağlarım?

[Aretea]

Private Sub Cmdkyd_Click()
If ComboBox1 = "" Then
MsgBox "bir utk no seçin"
Else
Sheets(ComboBox1.Value).Select
Range("b2").Value = TextBox6.Value
Range("c2").Value = TextBox2.Value
Range("d2").Value = TextBox3.Value
Range("e2").Value = TextBox4.Value
Range("f2").Value = TextBox5.Value
TextBox6 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
ComboBox1 = ""
MsgBox "işlem tamam hayırlı günler diler serkan & tevfik"
Sheets("Ana Menu").Select
End If
End Sub

userformumu kaydet dediğimde comboboxtan seçtiğim sayfaya kayıt ediyor. ama sorun herzaman 2. satıra kayıt etmesi ben 2. satırdan başlayıp alt altta yazmasını istiyorum ne yapabilirim?

 

[hamitcan]

Örnek bir dosya göndermediğiniz için deneyemedim.Aşağıdaki şekilde dener misiniz?

Private Sub Cmdkyd_Click()
If ComboBox1 = "" Then
MsgBox "bir utk no seçin"
Else
Sheets(ComboBox1.Value).Select
[B2].Select
Do While Not IsEmpty(ActiveCell)
   With ActiveCell
    .Offset(1, 0) = TextBox6: TextBox6 = ""
    .Offset(1, 1) = TextBox2: TextBox2 = ""
    .Offset(1, 2) = TextBox3: TextBox3 = ""
    .Offset(1, 3) = TextBox4: TextBox4 = ""
    .Offset(1, 4) = TextBox5: TextBox5 = ""
   End With
Loop
ComboBox1 = ""
MsgBox "işlem tamam hayırlı günler diler serkan & tevfik"
Sheets("Ana Menu").Select
End If
End Sub

 

[Levent Menteşoğlu]

Bunun için hücre tanımlamalarında satır nosu değişken olmalıdır. Aşağıdaki gibi deneyin.

[LEFT]Private Sub Cmdkyd_Click()
If ComboBox1 = "" Then
MsgBox "bir utk no seçin"
Else
Sheets(ComboBox1.Value).Select
[B][COLOR=red]son=[b65536].end(3).row+1[/COLOR][/B] 'ilk boş satırı bulur.
Range("b" [COLOR=red][B]& son[/B][/COLOR]).Value = TextBox6.Value
Range("c" [COLOR=red][B]& son[/B][/COLOR]).Value = TextBox2.Value
Range("d" [B][COLOR=red]& son[/COLOR][/B]).Value = TextBox3.Value
Range("e" [B][COLOR=red]& son[/COLOR][/B]).Value = TextBox4.Value
Range("f" [B][COLOR=red]& son[/COLOR][/B]).Value = TextBox5.Value
TextBox6 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
ComboBox1 = ""
MsgBox "işlem tamam hayırlı günler diler serkan & tevfik"
Sheets("Ana Menu").Select
End If
End Sub

[/LEFT]

 

[Aretea]

Size yolladığım bu örnekte ilk karşıma gelen userform2 combobox menüsünden operasyon no ve adını seçiyorum seçtikten sonra userforum1 tablosuna geçiyor ve tablonun başına operasyon nosunu yazıyor ama label şeklinde yazıyor. Bende bu label şeklinde yazan operasyon nosunu kaydet tuşuna bastığımda a2 hücresinden başlayarak aşağı doğru sıralamasını istiyorum ve diğerlerinide tabiki. Nasıl yapabilirim?

 

[hamitcan]

Sayın leventm'in kodları ile dosyanızı düzenledim.Eki inceleyin.

 

[Aretea]

Sayın hamitcan eki inceleyin demişsiniz ama eki göremedim?

 

[hamitcan]

Winrar programı ile sıkıştırarak gönderdim.

 

[Aretea]

tamam hamitcan şimdi aldım inceliyorum teşekkür ederim herşey için

 

[Aretea]

Sayın hamitcan yaptığın çalışmayı inceledim güzel olmuş ama şöyle bir durum var ben çalışma sayfalarına otomatik sıralama yapması için kod yazmıştım. onun için olsa gerek ikinci bir kaydı girdiğimde diğerinin üzerine yazıyor. Ne yapmam lazım? Dosyayıda ekte yolluyorum..

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Private Sub Cmdkyd_Click()
If ComboBox1 = "" Then
MsgBox "bir utk no seçin"
Else
Sheets(ComboBox1.Value).Select
son = Sheets(ComboBox1.Value).[b65536].End(3).Row + 1 'ilk boş satırı bulur.
'Range("b" & son).Value = TextBox6.Value
Range("b" & son).Value = TextBox2.Value
Range("c" & son).Value = TextBox3.Value
Range("d" & son).Value = TextBox4.Value
Range("e" & son).Value = TextBox5.Value
TextBox6 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
ComboBox1 = ""
MsgBox "işlem tamam hayırlı günler diler serkan & tevfik"
Sheets("Ana Menu").Select
End If
End Sub

 

[Aretea]

Sayın hamitcan teşekkür ederim oldu. Bir sorum daha olacaktı en son yollamış olduğum çalışmada kaydet tuşuna bastığımda textboxları kayıt ediyor ama en baştaki label7de yazan operasyon nosunu kayıt etmiyor. Orda yazan operasyon nosunu A sütununa nasıl yazdırabilirim?

 

[hamitcan]

Range("a" & son).Value = Label7