LİSTEDEKİ UYGUN VERİYİ BULUP BAŞKA SAYFAYA AKTARMAK

[ZAHIDE]

LÝSTEDEKÝ UYGUN VERÝYÝ BULUP BAÞKA SAYFAYA AKTARMAK

Selam
excel 2000 ingilizce kullaniyorum. bir kac sayfadan olusan bir dosyam var
sayfa1 de ucaklarin adi / tipi / tonaji / v.s var
benim yapmak istedigim sayfa birdeki bir listede yer alan ucagin adini sayfa ikide yazdigim zaman yada baska bir yerden kopyaladigimda bu ismi gordugunde sayfa 1 e gidip o ucagin ismini bulup bir yan hucrede yazan tonaji sayfa ikideki yazdigimiz adin yanindaki hucreye kopyalamasini istiyorum
yani sayfa2 de yazdigim bir ismi sayfa1 de sort edip yan hucrede yazan degeri sayfa 2deki ismin yan hucresine yazmasini istiyrum yapamadim
yardimci olursaniz cok sevinirim
tesekkurler

 

[enderturk]

merhaba

ustalarımdan öğrendiğim kadarıyla birşeyler yazmaya çalıştım. Aşağıdaki kodu vb editöründe yeni bir modüle ekleyin
Sayfa 2 de a sütünuna sayfa1deki b sutununda bulunan ucak ismini yazdığınızda yanına tonajını yazacak. ucak adını yazdığınızda tekrar o hücreye gelip makroyu çalıştırmanız gerekiyor:

Sub Makro1()

b = ActiveCell.Row
c = ActiveCell.Column
sonsat = Sheets("Sayfa1").Cells(65536, 2).End(xlUp).Row
'
a = (ActiveCell.Row)
aranan = Sheets("Sayfa2").Cells(b, c)
'
For i = 1 To sonsat
If Sheets("Sayfa1").Cells(i, 2) = aranan Then
Sheets("Sayfa2").Cells(a, 2) = Sheets("Sayfa1").Cells(i, 4)
End If
Next i
End Sub

 

[enderturk]

ekte dosyayı da yolluyorum biraz acemice oldu ama idare et artık

iyi çalışmalar

 

[Merhum İdris SERDAR]

Bir örnek gönderiyorum. Umarım işinize yarar.

 

[tb]

Merhaba. Bendende işine yarıyacağını düşündüğüm bir dosya

 

[tb]

Pardon birde sormayı unuttum muglanın neresinden ?