kod düzeltme , şartlı bağlama

[Fuat Şirin]

Private Sub ComboBox1_Change()
Columns(1).Find(ComboBox1.Text).Select
For i = 1 To 6
UserForm1.Controls("textbox" & i).Text = ActiveCell.Offset(0, i)
Next
End Sub

Private Sub CommandButton1_Click()
Columns(1).Find(ComboBox1.Text).Select
For i = 1 To 6
ActiveCell.Offset(0, i) = UserForm1.Controls("textbox" & i).Text
Next
End Sub

Bu kodları kullanarak saydaki verileri alıp düzeltiyorum
bu kodları actif olan sayfa değilde
sayfa3 e alsak mesela
ve 2. satırdan başlatsak nasıl düzeltmem gerek

 

[Ferhat Pazarçevirdi]

örnek dosya eklermisiniz lütfen?

 

[Fuat Şirin]

arkadaşlar yardım edecek kimse yok mu?
activecell yerine sayfa1 yada 2 yazmam gerek bunu nasıl yapmam gerek

 

[Fuat Şirin]

dosya ekte

hocam dosya ektedir incelerseniz sevinirim
birde hocam ben türkçe kullanıyorum exceli ona göre
bir deüzeltme yaparsanız sevinirim

 

[Ferhat Pazarçevirdi]

Eğer yanlış anlamadıysam; şu şekilde denermisiniz.

Sayfa1! A1:G6 'daki bilgileri ;
Sayfa3!A2:G7'ye kopyalayın.

Visual Basic toolbar'ını aktif edin.
Buraya bir adet commandbutton ilave edin. Butonun üzerinde sağ tıklayıp "Kod Görüntüle" deyin. (Tasarım kipinde değilseniz bunu yapamayabilirsiniz. O zaman tasarım kipine geçiniz)

VBE'de aşağıudaki kodu yazın

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Herhalde istediğiniz böyle birşey

 

[Fuat Şirin]

hocam şöyle bu kodları forumdan almıştım bana yardımcı olan arkadaş
bunu aktif olan sayfaya almış
benim istediğim
sayfa1 deki seçilen satırı sayfa 2 de ilk boş satıra eklemek
yani comboda seçtiğim satırı sayfa 2 ye eklemek
ama userformu sayfa 2 de açıcam

 

[Ferhat Pazarçevirdi]

Kodları aşağıdaki gibi denermisiniz?

Sayfa2'ye veya sayfa 3' bir buton yerleştirip çalıştırın. Sayfa'1deki verileri okuyacak ve Sayfa 2'de seçtiğiniz hücreden itibaren yazmaya başlayacaktır.

Private Sub ComboBox1_Change()
Set sh = Sheets("Sheet1")
satir = sh.Columns(1).Find(ComboBox1.Text).Row
For i = 1 To 6
UserForm1.Controls("textbox" & i).Text = sh.Cells(satir, i)
Next
End Sub

Private Sub CommandButton1_Click()
Set sha = ActiveSheet
ActiveCell.Value = ComboBox1.Value
For i = 1 To 6
ActiveCell.Offset(0, i - 1) = UserForm1.Controls("textbox" & i).Text
Next
End Sub

 

[Fuat Şirin]

hocam dediğiniz gibi yaptım
tamamdır tam istediğim gibi oldu
Saygılar;...