kod düzeltme , şartlı bağlama

Katılım
20 Aralık 2006
Mesajlar
939
Excel Vers. ve Dili
türkçe
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
 
Katılım
20 Aralık 2006
Mesajlar
939
Excel Vers. ve Dili
türkçe
arkadaşlar yardım edecek kimse yok mu?
activecell yerine sayfa1 yada 2 yazmam gerek bunu nasıl yapmam gerek
 
Katılım
20 Aralık 2006
Mesajlar
939
Excel Vers. ve Dili
türkçe
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
 
Katılım
15 Haziran 2006
Mesajlar
3,704
Excel Vers. ve Dili
Excel 2003, 2007, 2010 (TR)
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
 
Katılım
20 Aralık 2006
Mesajlar
939
Excel Vers. ve Dili
türkçe
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
 
Katılım
15 Haziran 2006
Mesajlar
3,704
Excel Vers. ve Dili
Excel 2003, 2007, 2010 (TR)
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
 
Katılım
20 Aralık 2006
Mesajlar
939
Excel Vers. ve Dili
türkçe
hocam dediğiniz gibi yaptım
tamamdır tam istediğim gibi oldu
Saygılar;...
 
Üst