düşeyara makro kodu hakkında

[lokurlu]

Aşagıdaki kodu bir butona bağlamak için nasıl düzenlemeyiz.

Teşekkürler

Private Sub Worksheet_Change(ByVal Target As Range)
Set sg = Sheets("Genel Bilgiler")
Set sf = Sheets("Fiyat")
If Intersect(Target, [d5:d300]) Is Nothing Then: Exit Sub
sat = Target.Row
x = Application.WorksheetFunction.Match(Target.Value, sg.Range("A1:A1000"), 0)
sf.Cells(sat, 2) = sg.Cells(x, 3)
sf.Cells(sat, 3) = sg.Cells(x, 2)
Set sg = Nothing
Set sf = Nothing
End Sub

 

[Orion1]

Aşağıdaki kodu deneyiniz.

Private Sub CommandButton1_Click()
Set sg = Sheets("Genel Bilgiler")
Set sf = Sheets("Fiyat")
If ActiveCell.Row < 5 Or ActiveCell.Row > 300 Or ActiveCell.Column <> 4 Then Exit Sub
sat = ActiveCell.Row
x = Application.WorksheetFunction.Match(ActiveCell.Value, sg.Range("A1:A1000"), 0)
sf.Cells(sat, 2) = sg.Cells(x, 3)
sf.Cells(sat, 3) = sg.Cells(x, 2)
Set sg = Nothing
Set sf = Nothing
End Sub

 

[lokurlu]

KONUYU YALNIŞ AKTARDIM HERHALDE YUKARIDAKİ KODDA

FİYAT SEEHTDE 5 VE 300 SATIR ARASINDAKİ TÜM
VERİLERİN GENEL BİLGİLER Seeht deki karşılıklarını aktaracak
tek satır değil

 

[Orion1]

KONUYU YALNIŞ AKTARDIM HERHALDE YUKARIDAKİ KODDA

FİYAT SEEHTDE 5 VE 300 SATIR ARASINDAKİ TÜM
VERİLERİN GENEL BİLGİLER Seeht deki karşılıklarını aktaracak
tek satır değil

Ben tamamen sizin verdiğiniz kodda değişiklik yapıp onu butona atadım.Zira siz Bu kodları bir butona atayabilirmisiniz diye sormuştunuz.Bende butona atadım.
Şimdi yeni sorduğunuz soruda aktarılacak veriler hangi kritere göre aktarılacak.Kriter ne olacak ve kriteri bir hücredenmi alacak ,hücreden alacaksa bu hücre hangi hücre olacak.Yoksa kriteri textbox'tanmı alacak?
Konuyu biraz dağa açmanız gerekiyor.

 

[lokurlu]

örnek dosyayı ekliyorum

yardımlarınız için teşekkürler

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[halilsoft]

sanırım işine yarar

 

[lokurlu]

teşekkürler elinize sağlık