Aktarma problemini aşamadım yardım!

[efsane81]

1. userformda seçilen veri adında sayfa açılacak -bu tamam
2.yeni açılan sayfaya seçilen veriyi harcamalar sayfasından alacak ve sıralayacak. bu kısımda takıldım. lütfen yadım teşekkürler

 

[halit3]

1. userformda seçilen veri adında sayfa açılacak -bu tamam
2.yeni açılan sayfaya seçilen veriyi harcamalar sayfasından alacak ve sıralayacak. bu kısımda takıldım. lütfen yadım teşekkürler

bu kodu denermisiniz

Private Sub CommandButton2_Click()
Rows("5:65000").Interior.ColorIndex = xlNone
Dim NX As Range
Dim Sayfa As Worksheet 'Tanımlama
Dim SayfaAdı As String ' Tanımlama
SayfaAdı = ComboBox1.Value 'Yeni bir sayfa adı. Sayfa adını Hangi Ay ve Yıl ise belirle
For Each Sayfa In Worksheets      'Aynı isimde sayfa varmı yokmu araştır.
If Sayfa.Name = SayfaAdı Then
If MsgBox("Bu isimde bir sayfa bulunmaktadır.", vbOKOnly, "Özlem_Dizayn") Then ' Varsa bu mesajı versin ve sonlandırsın.
Exit Sub
End If
End If
Next Sayfa
Sheets.Add.Name = SayfaAdı 'Yeni safa ekle yukarıdaki belirlene ismi ver
Sheets(SayfaAdı).Move After:=Sheets(Sheets.Count) 'Sayfayı sona taşı
sat = 6
ADI = "HARCAMALAR"
 
For Each NX In ThisWorkbook.Worksheets(ADI).Range("C5:C100").Rows
If NX.Value = ComboBox1.Value Then
NX.EntireRow.Interior.ColorIndex = 6
sut = NX.Row
Cells(2 + sat, 1).Value = sat - 5 'SIRA NO
Cells(2 + sat, 2).Value = Sheets(ADI).Cells(sut, 2).Value
Cells(2 + sat, 3).Value = Sheets(ADI).Cells(sut, 3).Value
Cells(2 + sat, 4).Value = Sheets(ADI).Cells(sut, 4).Value
Cells(2 + sat, 5).Value = Sheets(ADI).Cells(sut, 5).Value
Cells(2 + sat, 6).Value = Sheets(ADI).Cells(sut, 6).Value
Cells(2 + sat, 7).Value = Sheets(ADI).Cells(sut, 7).Value
Cells(2 + sat, 8).Value = Sheets(ADI).Cells(sut, 8).Value
Cells(2 + sat, 9).Value = Sheets(ADI).Cells(sut, 9).Value
Cells(2 + sat, 10).Value = Sheets(ADI).Cells(sut, 10).Value
sat = sat + 1
End If
Next
Cells(sat + 3, 4).Value = "Ödemesi Devam Eden Taksit Sayısı " & sat - 5 & ""
End Sub

 

[efsane81]

Sayın halit3 çok teşkkür ederim işe yaradı. çok teşkkürler.