bir butonla iki kodu seçip diğer sayfadaki hücreye yazdırmak

[bilisim2010]

merhaba GENEL ANLATIM: x.userform daki textbox1 ve textbox2 deki farklı stok kodlarını bir buton aracılığı ile sayfa1 den seçtirip satırlarının bazı hücrelerindeki örnek a2 b2 f2 verileri, sayfa2 deki boş satırlara yazdırma vba formülüne ihtiyacım var üstadlarım bunların hepsini sadece 1 buton yapacak.

ÖRNEK ANLATIM: resimdeki Carivirman userformundaki
textbox1 yani üstteki kutu resimdeki arkadaki açık userformun textbox1035 indeki kodu yani CRM200158 i açıldığında çekiyor otomotik initialize ile.
textbox2 yanındaki butona basınca hizlicariara.show açılıyor ve açılan userformun listboxdaki verilerden birine çift tıklayarak seçiyorum seçtiğimin a2 deki kodu textbox2 e geliyor

güncelleye basınca
bu iki textboxdaki verilerde aynı sayfada sayfanın adı KAYIT, bu textboxdaki verilerin a2 b2 f2 deki satırlarındaki verileri seçtirip diğer sayfaya yani CARİHAREKET e yazdırmak olay bundan ibaret. umarım anlatabilmişimdir.

Cari Kodu	Cari Adı	Fatura Tarihi	İşlem Türü	Fatura No	Borç Tutarı	Alacak Tutarı	KPB Bakiyesi	KPB B/A/S
CRM200158	FERSAN	21.01.2025	Fatura	10001​	1,242.000​		1,242.000​	Borç	bundan al
CRM200158	FERSAN	21.01.2025	Virman	10001​		1242​	1,242.000​	Borç	bundan düş
CRM200157	TOPUZ	21.01.2025	Virman	10002​	1,242.000​		0.000​	Borç	buna ekle

 

[catalinastrap]

Merhaba
Bölümler halinde kodu yazdım açıklamalarını yazdığım formlara yapıştırıp test edebilirmisin
(örnek dosyayı yüklersen daha doğru sonuç alabiliriz,şuan anlattığından anladığım kadarını yapmayaçalıştım)

Carivirman UserForm Kodu : (kod 3 bölümden oluşuyor)


Private Sub UserForm_Initialize()
Me.TextBox1.Text = "CRM200158"
End Sub



Private Sub CommandButton1_Click()
Hizlicariara.Show
End Sub



Private Sub Guncelle_Click()
Dim wsKayit As Worksheet
Dim wsCariHareket As Worksheet
Dim kod1 As String
Dim kod2 As String
Dim rng As Range
Dim destRow As Long


Set wsKayit = ThisWorkbook.Sheets("KAYIT")
Set wsCariHareket = ThisWorkbook.Sheets("CARİHAREKET")

kod1 = Me.TextBox1.Text
kod2 = Me.TextBox2.Text

Set rng = wsKayit.Range("A2:F2").Find(What:=kod1, LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then

destRow = wsCariHareket.Cells(wsCariHareket.Rows.Count, "A").End(xlUp).Row + 1

wsCariHareket.Cells(destRow, "A").Value = wsKayit.Cells(rng.Row, 1).Value
wsCariHareket.Cells(destRow, "B").Value = wsKayit.Cells(rng.Row, 2).Value
wsCariHareket.Cells(destRow, "F").Value = wsKayit.Cells(rng.Row, 6).Value
Else
MsgBox "Kod bulunamadı!"
End If
End Sub



Hizlicariara UserForm Kodu :


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Carivirman.TextBox2.Text = Me.ListBox1.Value
Me.Hide
End Sub


Carivirman UserForm'daki Buton Kodu :


Private Sub CommandButton2_Click()
' Hizlicariara formunu aç
Hizlicariara.Show
End Sub