fiyat çıkarma sihirbazı

[seergin83]

merhaba arkadaşlar, içinden çıkamadığım bir sorunum var.
fiyat çıkarma sihirbazı adlı excel dosyam var. fakat müşterilerim bir malın fiyatını sorduklarında kataloglara bakmak zorunda kalıyorum bu yüzden excel dosyasının üçüncü safyasından itibaren ürünler gruplara ayırarak malların tablolar halinde fiyatların yazmak istiyorum. amacım burada fiyatlara tıkladığım anda o ürünün satırını 1.sayfadaki sihirbaza atmasını istiyorum.şimdiden teşekkür ederim...

 

[mesuttasar]

ÖNEMLİ NOT: Aşağıdaki kodlar çift tıklamayla çalışan kodlardır.

Malzeme fiyatlarının bulunduğu tüm sayfaların kod bölümüne (BOYA,BAHÇE,TEKNİK,SU,CİVATA) aşağıdaki kodu ekleyin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
ABC = Target.Row
Range("A" & ABC & ":" & "G" & ABC).Select
Selection.Copy
Sheets("FİYAT ÇIKARMA").Select
kaydet = Worksheets("FİYAT ÇIKARMA").[C65536].End(3).Row + 1
Worksheets("FİYAT ÇIKARMA").Cells(kaydet, 3).Select
ActiveSheet.Paste
 
End Sub

Ben boya sayfasının kod bölümüne yazdım siz diğer sayfaların kod bölümüne aynı kodları ekleyin.Dosya ektedir.

 

[seergin83]

teşekkür ederim mesut bey...

 

[mesuttasar]

teşekkür ederim mesut bey...

Rica ederim :keyif: