Belirli koşula göre sayfalar arası veri kayıt

[osmanli2]

düğme 1 ile açılann forma tarih girerek yapılacak işlem şu şekildedir;
bu sayfadaki "b" yi , rso sayfasındaki "c" ye , yine bu sayfadaki "e" yi rso sayfasında "d" ye, daha sonra textbox'daki tarihi rso daki "b" ye ilave edecek kodlar için yardımcı olmanızı rica ederim


Not: rso sayfasındaki önceki verileri silmeden ilave edecek.

 

[İhsan Tank]

iyi güzel de eksik soru olmuş
rapor sayfasında hangi veri rso sayfasına aktarılacak
mesela ben bugün tarihini yazdım
hangi veri öbür sayfaya gidecek onu çözemedim

 

[osmanli2]

rapor sayfasındaki tüm verileri aktaracak. tarihi sadece rso sayfasında ki "b" ye yazacak.

 

[İhsan Tank]

rapor sayfasındaki tüm verileri aktaracak. tarihi sadece rso sayfasında ki "b" ye yazacak.

merhaba
userform'un kod bölümüne

Private Sub CommandButton1_Click()
If TextBox1 = Empty Then MsgBox "Tarih Giriniz", vbCritical, "Hata": Exit Sub
Dim a As Long, b As Long
Sheets("rso").Range("A2") = 1
b = Sheets("rso").Cells(65536, "C").End(xlUp).Row
For a = 2 To Sheets("rapor").Cells(65536, "B").End(xlUp).Row
Sheets("rso").Cells(b + 1, "C") = Sheets("rapor").Cells(a, "B")
Sheets("rso").Cells(b + 1, "D") = Sheets("rapor").Cells(a, "E")
Sheets("rso").Cells(b + 1, "B") = Format(TextBox1, "dd.mm.yyyy")
b = b + 1
Sheets("rso").Range("A2:A" & b).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
step:=1, Trend:=False
Next
MsgBox "Aktarım Tamamlandı", vbInformation, "Bitiş"
End Sub

 

[osmanli2]

Teşekkür ederim sayın İhsan Tank. Emeğinize sağlık.

 

[İhsan Tank]

Teşekkür ederim sayın İhsan Tank. Emeğinize sağlık.

rica ederim
:yazici: