başka bir sayfadaki veriyi bulup kopyalamak nasıl olur?

[setere]

Merhabalar
Bir çalışma sayfasında tc kimlik numaralarının olduğu bir sütun var.bir tc numarasının 3 yan tarafındaki bir hücreye başka bir çalışma sayfasındaki aynı tc kimlik numarasının iki yanındaki hücredeki veriyi kopyalamak istiyorum,bunu nasıl yapabilirim. İkinci sayfadaki tc kimlik numarasının yeri sabit değil o sayfada aratıp bulmam gerekiyor. Bir de bunu bütün tc kimlik sütununa uygulayabilir miyim..Teşekkürler

 

[Murat OSMA]

Dosyanızı bir ekleyin, ona göre net bir çözüm sunalım...

 

[tekirdagli_0059]

makro

Dosyanızı bir ekleyin, ona göre net bir çözüm sunalım...

merhaba;ekte göndereceğim LİST sayfasındaki kodların ; aynı isimli .xls uzantılı farklı formatta (SAPtan indirilmiş) dökümanları; yine ekte göndereceğim REÇETELER adlı döküman altına aynı isimle olarak taşımalı;örnekte görüleceği şekliyle düzenleyerek kaydetmek.
umarım bu konuda yardımcı olabilirsiniz.

 

[setere]

Dosyanızı bir ekleyin, ona göre net bir çözüm sunalım...

Bu dosyada sayfa1 deki canyıldızın tc kimlik numarasını sayfa2 de C sütununda aratıp bulup J4 hücresindeki veriyi (256,00) sayfa1 de N3 hücresine yazdırmak istiyorum... indis fonksiyonuyla oluyormuş ama 3 saattir bulamadım internette

 

[Murat OSMA]

Son gönderdiğiniz dosya üzerinde bir deneyiniz...

Sub Emre()
    Application.ScreenUpdating = False
    Dim bul As Range
        Set bul = Sayfa2.Cells.Find(Range("E3"))
        Sayfa2.Select: bul.Select
        Sayfa1.Range("M3").Value = bul.Offset(0, 7).Value
        Sayfa1.Select
    Set bul = Nothing
    Application.ScreenUpdating = True
End Sub

 

[tekirdagli_0059]

merhaba;ekte göndereceğim LİST sayfasındaki kodların ; aynı isimli .xls uzantılı farklı formatta (SAPtan indirilmiş) dökümanları; yine ekte göndereceğim REÇETELER adlı döküman altına aynı isimle olarak taşımalı;örnekte görüleceği şekliyle düzenleyerek kaydetmek.
umarım bu konuda yardımcı olabilirsiniz.

bu konuda yardımcı olabilir misiniz???????

 

[setere]

Son gönderdiğiniz dosya üzerinde bir deneyiniz...

Sub Emre()
    Application.ScreenUpdating = False
    Dim bul As Range
        Set bul = Sayfa2.Cells.Find(Range("E3"))
        Sayfa2.Select: bul.Select
        Sayfa1.Range("M3").Value = bul.Offset(0, 7).Value
        Sayfa1.Select
    Set bul = Nothing
    Application.ScreenUpdating = True
End Sub

çok teşekkür ediyorum emeğinize sağlık