Userformdan Sayfaya veri aktarma

[tufan03]

Userform üzerinde bulunan TextBox1,TextBox25,ComboBox1,TextBox7,TextBox8,TextBox9,TextBox10' da bulunan verileri Gün adlı sayfadaki ilk boş satıra, (verilerin herbiri C,D,E,F,G,H,I hücrelerine gelecek şekilde )nasıl kopyalarız.
İkinci olarak enson kopyalama işlemini bazan geri almak gerekiyor, yani gün sayfasındaki son satırı silmek için ikinci kod yazmak istiyorum, Yazdım fakat hata verdi.Nasıl yazarız. Teşekkür ederim.

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodları deneyiniz.

VARSAYIM : Userformunuzun üzerinde comman_button1 adında bir buton olduğu varsayılmıştır. Değilse, butonunveya nesnenin olay adını değiştiriniz.

Private Sub CommandButton1_Click()
Set sh = Sheets("Gun")
son = sh.Cells(65536, 1).End(xlUp).Row + 1
sh.Cells(son + 1, 3) = TextBox1.Text
sh.Cells(son + 1, 4) = TextBox25.Text
sh.Cells(son + 1, 5) = Combobox1.Value
sh.Cells(son + 1, 6) = Textbox7.Text
sh.Cells(son + 1, 7) = Textbox8.Text
sh.Cells(son + 1, 8) = Textbox9.Text
sh.Cells(son + 1, 9) = Textbox10.Text
Set sh = Nothing
End Sub

 

[tufan03]

Sayın fpc olmadı, öncelikle ilk boş satıra değil ikinci boş satıra kopyalıyor. İkinci defa daha önceki kopyalanmış bilgileri silerek yine aynı satıra kopyalıyor,halbuki ilk işlemde diyelimki ilk boş satır 2 nci satır oraya, ikincide ise boş satır 3 ncü satır olduğundan oraya kopyalaması gerekiyır.

 

[Ferhat Pazarçevirdi]

Doğru söylüyorsunuz.

+1 fazlalık yapmışız, son değişikenin hesaplandığı satırdaki "+1" değeri kalkacak.

Bunun yerine şunu da kullanabilirsiniz.

Private Sub CommandButton1_Click()
Set sh = Sheets("Gun")
For Each hcr In ActiveSheet.Range("C:C")
    If hcr.Value = Empty Then
[COLOR=yellowgreen][COLOR=green]    'Bu koşulu siz belirleyin.
    'Ben, C kolonunda taramasını istedim ve bulduğu ilk[/COLOR][/COLOR][COLOR=yellowgreen][COLOR=green] boş hücreye yazacaktır.
    'Boş satır koşulu size göre farklı olabilir.[/COLOR]
[/COLOR]       satir = hcr.Row
       sh.Cells(satir, 3) = TextBox1.Text
       sh.Cells(satir, 4) = TextBox25.Text
       sh.Cells(satir, 5) = Combobox1.Value
       sh.Cells(satir, 6) = Textbox7.Text
       sh.Cells(satir, 7) = Textbox8.Text
       sh.Cells(satir, 8) = Textbox9.Text
       sh.Cells(satir, 9) = Textbox10.Text
       Exit Sub
    End If
Next
Set sh = Nothing
End Sub

 

[tufan03]

Üstüste birinci satıra kopyalıyor.

 

[Ferhat Pazarçevirdi]

Kodları yazdığınız örnek bir dosya eklermisiniz?