Herkeze iyi günler,
Yazmaya çalıştığım bir makroyu bitiremedim. Problem şöyle:
Bir çalışma kitabında 4 sayfa var ve ilk 3 sayfada girilen verilere göre bazı hesaplamalar yapılıyor. sayfa 4 e de, soldaki sayfalardaki bu verilerin bir şekilde aranılıp, alınıp, sayfa 4 de belirtilen yerlere alt alta yazdırılması gerekiyor.
sayfa 4 de b5:l18 arası seçilip temizlenecek.
sayfa 4 de a4 hucresine yazılacak isim ve soyad, soldaki bütün sayfalarda b4:b29 arasında aranacak, bu ismin karşısındaki satırda q,r,s,t,u,v,w,x,y,z,aa kolonlarındaki değerleri alıp sayfa 4 de b,c,d,e,f,g,h,ı,j,k,l sütunlarına 5.satırdan başlayıp alt alta sıralayacak.
Ben soldaki sayfaları tarattırma ve buldurma işine kadar makroyu yazdığımı zannediyorum fakat sayfa 4 e getirtip yazdıramadım.
Sub arabul()
Dim a As String
Dim i As Integer
Dim y As Range
Range("b5:l18").ClearContents
'B5:L18' ARASINI TEMİZLER'
a = ActiveSheet.Range("a4")
For i = 1 To Worksheets.Count
'SOL BAÃTAN İTİBAREN BÜTÜN SAYFALARI TARAR'
For Each y In Worksheets(i).Range("B4:B29")
'sayfa 2 de A4 E YAZILAN İSİME GÃ?RE HER SAYFADA B4:A29 ARASI LİSTEYİ GÃ?ZDEN GEÇİRİR'
If Trim = Trim(a) Then
bundan sonrasınında tıkandım.
örnek dosya eklidir.
yardımcı olacaklara şimdiden teşekkür ederim.
necip54
Yazmaya çalıştığım bir makroyu bitiremedim. Problem şöyle:
Bir çalışma kitabında 4 sayfa var ve ilk 3 sayfada girilen verilere göre bazı hesaplamalar yapılıyor. sayfa 4 e de, soldaki sayfalardaki bu verilerin bir şekilde aranılıp, alınıp, sayfa 4 de belirtilen yerlere alt alta yazdırılması gerekiyor.
sayfa 4 de b5:l18 arası seçilip temizlenecek.
sayfa 4 de a4 hucresine yazılacak isim ve soyad, soldaki bütün sayfalarda b4:b29 arasında aranacak, bu ismin karşısındaki satırda q,r,s,t,u,v,w,x,y,z,aa kolonlarındaki değerleri alıp sayfa 4 de b,c,d,e,f,g,h,ı,j,k,l sütunlarına 5.satırdan başlayıp alt alta sıralayacak.
Ben soldaki sayfaları tarattırma ve buldurma işine kadar makroyu yazdığımı zannediyorum fakat sayfa 4 e getirtip yazdıramadım.
Sub arabul()
Dim a As String
Dim i As Integer
Dim y As Range
Range("b5:l18").ClearContents
'B5:L18' ARASINI TEMİZLER'
a = ActiveSheet.Range("a4")
For i = 1 To Worksheets.Count
'SOL BAÃTAN İTİBAREN BÜTÜN SAYFALARI TARAR'
For Each y In Worksheets(i).Range("B4:B29")
'sayfa 2 de A4 E YAZILAN İSİME GÃ?RE HER SAYFADA B4:A29 ARASI LİSTEYİ GÃ?ZDEN GEÇİRİR'
If Trim = Trim(a) Then
bundan sonrasınında tıkandım.
örnek dosya eklidir.
yardımcı olacaklara şimdiden teşekkür ederim.
necip54