sayfalar arasında veri aktarma

[fedeal]

userform üzerinden masraf sayfasından data sayfasına veri aktarmak istiyorum. bunu yapabiliyorum sorun şu günlük masraf 3 kalem genel masraf kalemi 20 olunca ilgili sütunlara aktarması gerekiyor.bu mümkünmü?

 

[Levent Menteşoğlu]

Öncelikle userform_initialize olayındaki kodu aşağıdaki ile değiştirin.

Private Sub UserForm_Activate()
ListBox1.ColumnCount = 3
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "95;155;75"
ListBox1.RowSource = "MASRAF!A2:C" & Sheets("masraf").Cells(65536, "c").End(3).Row
End Sub

Commandbuttonada aşağıdaki kodu kopyalayın.

Private Sub CommandButton12_Click()
Set s1 = Sheets("data")
For a = 0 To ListBox1.ListCount - 1
say = WorksheetFunction.CountIf(s1.[a:a], ListBox1.List(a, 0))
If say = 0 Then
sat = s1.[a65536].End(3).Row + 1
Else
sat = WorksheetFunction.Match(ListBox1.List(a, 0), s1.[a:a], 0)
End If
sut = WorksheetFunction.Match(ListBox1.List(a, 1), [2:2], 0)
s1.Cells(sat, "a") = CDate(ListBox1.List(a, 0))
s1.Cells(sat, sut) = CDbl(ListBox1.List(a, 2))
Next
End Sub

 

[fedeal]

mükemmel bir çözüm daha teşekkürler levent bey

 

[Bekci_32]

Değerli Arkadaşlar sizlerden ricam Excel sayfa 1 de birleştirilmiş hücrelerim var bu hücrelere veri girdiğimde diğer ikinci sayfaya alt alta bu verileri satırlara yazdırabiliyorum bu kodlarla.Yalnız bu kodda mükerrer kayıtları engellemek istiyorum.Aynı kaydı ikinci defa girilmesini engellemek istiyorum.
1-Aşağıdaki kodlar doğrumu?Gerekli kodu yazarmısınız.
Sub Ekle()
Application.ScreenUpdating = False
ActiveWindow.SmallScroll
Range("D99121").Select
Selection.Copy
sat = Sheets("Veri").Cells(65536, 1).End(xlUp).Row
Sheets("Veri").Select
Range("a1").Select
Sheets("Veri").Cells(sat + 1, 1).PasteSpecial , , , True
Selection.PasteSpecial , Paste:=xlValues, operation:=xlNone, Transpose:=True
Application.CutCopyMode = False
Sheets(1).Select
ActiveWorkbook.Save
MsgBox "ŞAHSIN KİMLİK BİLGİLERİ KAYDEDİLDİ"
End Sub
Ancak bu verileri zaman zaman tekrar birinci sayfaya birleştirilmiş hücrelere geri getirmem gerekiyor yani ikinci sayfadan sorgulatıp girilen verilerin birinci sayfaya gelmesini istiyorum.girdiğim bu verilerden istediğim yok ise istenilenin olmadığını mesaj olarak belirtmesini istiyorum.Bunun için birinci sayfaya sorgulama butonu koyacağım ancak birleştirilmiş hücre olduğu için hatalar veriyor.
2-Bu konuda doğru kodları yazabilirmisiniz.Şimdiden Teşekkürler