kopyala

[gdemir]

İyi akşamlar arkadaşlar
üç sayfadan oluşan bir dosyam var
genel , erkek , kadın

genel kısmına kayıt yaptığım zaman eger kayıt erkekse
erkekler sayfasında kopyalanmasını istiyorum eger bayansa bayanlar sayfasına koplayanmasını istiyorum ama bir türlü beceremedım
ornek bir dosya ekledim
şu acemiden yardımlarınızı esirgemeseniz sevinirim
herkese kolay gelsin

 

[Levent Menteşoğlu]

Kaydet butonuna aşağıdaki kodu yazarak deneyin.

[vb:1:e02b59af5d]Private Sub CommandButton1_Click()
Set s1 = Sheets(TextBox2.Value)
sonsat1 = [b65536].End(3).Row + 1
sonsat2 = s1.[b65536].End(3).Row + 1
Cells(sonsat1, "a") = [a65536].End(3) + 1
s1.Cells(sonsat2, "a") = s1.[a65536].End(3) + 1
For a = 1 To 3
Cells(sonsat1, a + 1) = Controls("textbox" & a)
s1.Cells(sonsat2, a + 1) = Controls("textbox" & a)
Next
ListBox1.RowSource = "erkek!b2:b" & [erkek!b65536].End(3).Row
ListBox2.RowSource = "kadın!b2:b" & [kadın!b65536].End(3).Row
End Sub
[/vb:1:e02b59af5d]

 

[gdemir]

elinize sağlık çok güzel olmuş