CommandButton ile iki ayrı sayfaya aynı anda kayıt

[drummers]

Private Sub CommandButton1_Click()
Set s1 = Sheets("data")
son = s1.[A65536].End(3).Row + 1

If WorksheetFunction.CountIf(s1.[B:B], TextBox2.Text) = 0 Then
s1.Range("A" & son).Select: s1.Range("A" & son) = son - 1
ActiveCell.Offset(0, 1).Value = TextBox2.Text

For i = 4 To 46
ActiveCell.Offset(0, i).Value = Controls("textbox" & i - 1)
Next i

acik = "işlem tamam": buton = vbOKOnly + vbInformation + vbDefaultButton1
bas = kayıt = "işlemi": MsgBox acik, buton, bas

For i = 1 To 45
Controls("textbox" & i) = ""
Next i
Else
MsgBox "Mükerrer Veri Girişi Yaptınız"
End If

Call ad_soyad_ayır
Call FirmaAZsırala
End Sub



makrosu ile ilgili textbox içeriklerini "data" sekmesine aktarmaktayım.

sorum şudur: Yukarıdaki komuta ilave olarak

* Textbox2 ye girilen değer aynı anda "Makbuz Listesi" B sütununa (B3 ten başlıyarak tabiki)

* Textbox21 ye girilen değer aynı anda "Makbuz Listesi" B sütununa (B3 ten başlıyarak tabiki)

aktarılmasını istemekteyim

Not : "data" sekmesine aktarımda sorun yok ilaveten "makbuz listesi" sekmesinede 2 textbox aktarılacak

teşekkürler

 

[Excelmy]

:dusun:

Aşağıdaki kodlar ile uygulama yapınız.

Private Sub CommandButton1_Click()
Set s1 = Sheets("data")
Set s2 = Sheets("Makbuz Listesi")
son1 = s1.[A65536].End(3).Row + 1
son2 = s2.[B133].End(3).Row + 1
If WorksheetFunction.CountIf(s1.[B:B], TextBox2.Text) = 0 Then
    s1.Range("A" & son1).Select: s1.Range("A" & son1) = son1 - 1
    ActiveCell.Offset(0, 1).Value = TextBox2.Text
 
    For i = 4 To 46
        ActiveCell.Offset(0, i).Value = Controls("textbox" & i - 1)
    Next i
 
    acik = "işlem tamam": buton = vbOKOnly + vbInformation + vbDefaultButton1
    bas = kayıt = "işlemi": MsgBox acik, buton, bas

s2.Cells(son2, "B") = "" & TextBox2.Text & " - " & TextBox21.Value & ""
    For i = 1 To 45
        Controls("textbox" & i) = ""
    Next i
Else
    MsgBox "Mükerrer Veri Girişi Yaptınız"
End If

Call ad_soyad_ayır
Call FirmaAZsırala
 End Sub

 

[drummers]

Çok pardon benden kaynaklı bi hata var

textbox2 "Makbuz Listesi" B hücresine
textboz21 "Makbuz Listesi" C hücresine olacaktı

kusura bakmayın

 

[tazgulgul]

Merhabalar.
Aşağıdaki koda ilave olarak; "verilen" sayfasındaki son dolu olan "b"sütununa Listboxtakilerin tümünü kaydetmesini istiyorum.Yani listedekileri tümü tek hücrede gözükmeli.Kod aşağıdakileri yapmayada devam etmeli.
Private Sub CommandButton3_Click()
Dim C As Long, R As Long
Dim RefCell As Range
Set RefCell = Sheets("maliyet").Range("b6")
With UserForm4
For R = 0 To .ListBox1.ListCount - 1
For C = 0 To .ListBox1.ColumnCount - 1
RefCell.Offset(R, C).Value = .ListBox1.List(R, C)
Next C
Next R
End With
End Sub

Yardım edebilecek var mı?