aktif hücreye göre bilgi alması

[meda58]

arkadaşlar elimdeki dosya çok büyük olduğundan sizlere çok basit bir örnek yolladım
yapmak istediğim sayfada birdeki A sütununda her hangi bir hücre üzerine tıkladığım zaman o hücrenin bulunduğu satırın sırasında D sutununa aşagıya doğru sayfa ikideki o sicil numarasıyla ilgili bilgileri getirsin
bunu düşeyara ile yaptım fakat benim istedim tıkladığım hücrenin bunu sağlaması eskisini temizlemesi umarım derdimi anlatabilmisimdir
şimdiden saygılar

 

[uzmanamele]

Merhaba

Bu kod işinizi görür mü?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("a:a")) Is Nothing Then Exit Sub
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
Range("d:d").ClearContents
kacinci = WorksheetFunction.Match(Target.Value, s2.[a:a], 0)
s2.Range("C" & kacinci & ":" & "AG" & kacinci).Copy
s1.Cells(Target.Row, "d").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

 

[meda58]

hocam kodlar mükemmel çalışıyor fakat bir türlü kendime uygulayamadım size dosyamı gönderiyorum ATAMA sayfasında E56 ve G56 hücrelerinden başlayacak PERSONEL TAKİP sayfasından sicile göre aldığı bilgileri J56 dan itibaren sıralayacak hocam zahmetleriniz için sonsuz teşekkürler



VBA şifresi 145314

 

[meda58]

konu güncel

 

[meda58]

uzmanamele hocam kodlarınız tam istediğim gibi harika ama dün den beri dosyaya uyarlamaya çalışıyorum bir türlü beceremedim hocam lütfen bir el atsanız

 

[uzmanamele]

uzmanamele hocam kodlarınız tam istediğim gibi harika ama dün den beri dosyaya uyarlamaya çalışıyorum bir türlü beceremedim hocam lütfen bir el atsanız

Merhaba

Mevcut dosyanız bana çok karışık geldi. Dosyanızda 3 satırdaki bilgiler alınacak sanıyorum ama yazdıracağınız sütun sayısı 1.
En iyisi 1 tanesini el ile doldurun, o örnekten hareketle çözmeye çalışalım.

 

[meda58]

hocam atama sayfasında E56 ve G56 hücrelerinden başlamak üzere bu sütunlarda herhangi bir hücre üzerine tıklayınca personel takip sayfasında sicilin karşısında bulunan ilk satırı J56 hücresinden itibaren alta dogru sıralasını istiyorum

 

[meda58]

hocam öncelikle size vermiş olduğum zahmetden dolayı özürlerimi sunarım
yardımlarınız için sonsuz teşekkür ederim
hocam kodları sonunda kendime göre uyarladım fakat hala yardımlarınıza ihtiyacım var

hocam bu kodların mutlaka birleştirilmesi lazım
birde fazla omazsam tıkladığımız hücrenin renginin değişmesi mümkünmü

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("e:e")) Is Nothing Then Exit Sub
Set s1 = Sheets("ATAMA")
Set s2 = Sheets("PERSONEL TAKİP")
Range("J56:J500").ClearContents
kacinci = WorksheetFunction.Match(Target.Value, s2.[b:b], 0)
s2.Range("AE" & kacinci & ":" & "BI" & kacinci).Copy
s1.Cells(Target.Row, "j").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("g:g")) Is Nothing Then Exit Sub
Set s1 = Sheets("ATAMA")
Set s2 = Sheets("PERSONEL TAKİP")
Range("J56:J500").ClearContents
kacinci = WorksheetFunction.Match(Target.Value, s2.[b:b], 0)
s2.Range("AE" & kacinci & ":" & "BI" & kacinci).Copy
s1.Cells(Target.Row, "j").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub