Merhaba
Ekte gönderdiğim dosyada 2 tablonun Q kolonunun karşılaştırmasını 3. bir çalışma sayfasına kopyalayarak ve sonrada alfabetik sıraya koyarak yapıyorum. 3. sayfada karşılarında "1" yazan hücrelerin yanına diğer çalışma sayfasındaki bir hücrenin (AK kolonundaki karşılığı) kopyalanması gerekiyor. bunun için bir makro kaydettim ama sizin de anlayacağınız gibi sadece kayıt esnasında seçili hücre için yapabiliyorum. Bana seçili hücreyi KASIM çalışma sayfasında arayacak, bulduğu değerin karşısındaki ilgili hücreyi (AK kolonu ile kesiştiği hücre) karşılaştırma sayfasına yapıştıracak bir makro gerekiyor. Dosyayı ekte gönderiyorum.
(İçerisinde kafa karıştıracak ilgisiz bütün değerleri sildin fakat orjinal formatı bozmamak açısından kolonları boş olarak bıraktım.)
AŞAĞIDA BENİM YAPTIĞIM MAKROYU GÖREBİLİRSİNİZ.
Range("B129").Select
ActiveCell.FormulaR1C1 = "11100RNA0008"
Sheets("ENGINE RNJW KASIM").Select
Cells.Find(What:="11100RNA0008", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range("AK838").Select
Selection.Copy
Sheets("Sheet3").Select
Range("D129").Select
ActiveSheet.Paste
End Sub
TEŞEKKÜRLER.
Ekte gönderdiğim dosyada 2 tablonun Q kolonunun karşılaştırmasını 3. bir çalışma sayfasına kopyalayarak ve sonrada alfabetik sıraya koyarak yapıyorum. 3. sayfada karşılarında "1" yazan hücrelerin yanına diğer çalışma sayfasındaki bir hücrenin (AK kolonundaki karşılığı) kopyalanması gerekiyor. bunun için bir makro kaydettim ama sizin de anlayacağınız gibi sadece kayıt esnasında seçili hücre için yapabiliyorum. Bana seçili hücreyi KASIM çalışma sayfasında arayacak, bulduğu değerin karşısındaki ilgili hücreyi (AK kolonu ile kesiştiği hücre) karşılaştırma sayfasına yapıştıracak bir makro gerekiyor. Dosyayı ekte gönderiyorum.
(İçerisinde kafa karıştıracak ilgisiz bütün değerleri sildin fakat orjinal formatı bozmamak açısından kolonları boş olarak bıraktım.)
AŞAĞIDA BENİM YAPTIĞIM MAKROYU GÖREBİLİRSİNİZ.
Range("B129").Select
ActiveCell.FormulaR1C1 = "11100RNA0008"
Sheets("ENGINE RNJW KASIM").Select
Cells.Find(What:="11100RNA0008", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range("AK838").Select
Selection.Copy
Sheets("Sheet3").Select
Range("D129").Select
ActiveSheet.Paste
End Sub
TEŞEKKÜRLER.