formulü yerine makro kullanılması

[why35]

Herkeze merhaba
iki adet çalışma sayfam var
1. sayfamın D sütunun 06-001 dan başlıyarak 06-999 a kadar giden sayılarım var
2. Sayfamda ise
A1 satırında = 06-150
A2 satırında = 12.12.06
A3 satırında = 19.20.06

Yapmak istediğim şey bir makro vasıtası ile 2.sayfamdaki a1,a2,a3 satırlarındaki verilerden A1 verisi baz alınarak 1.sayfamda aratılıp , (2.sayfamdaki A1 satırında bulunan 06-150'nin
1 sayfamdaki D sütununda aratılıp bulunduğu satırın J ve K sütunlarına kopyalanması.) bulunduğu satırdaki gerekli yerlere kopyalanması.

Çok teşekkür ederim
Saygılarımla

 

[zafer]

Merhaba

Tam olarak anlayamadım fakat aşağıdaki kodları çalıştırın tekrar üzerinde çalışalım.

Sub BUL()
son = Sheets("SAYFA1").Cells(65536, 1).End(xlUp).Row
For y = 1 To 3
For i = 1 To son
If Sheets("sayfa2").Cells(y, 1).Value = Sheets("sayfa1").Cells(i, 4).Value Then
c = c + 1
Sheets("sayfa1").Cells(c, 6) = Sheets("sayfa1").Cells(i, 4)
Sheets("sayfa1").Cells(c, 7) = Sheets("sayfa1").Cells(i, 4)

End If
Next
Next
End Sub

 

[why35]

Çok teşekkür ederim zafer bey
Vermiş olduğunuz makroyu deniyeceğim.
Sorunum daha iyi anlaşılabilmesi için çalışma sayfasını göndermekteyim , inceliyebilirseniz çok sevinirim.
Saygılarımla

 

[zafer]

Merhaba

 

[why35]

Merhaba Zafer Bey ,
Göndermiş olduğunuz dosyayı inceledim fakat koymuş olduğunuz düğme çalışmadı.Bastıgım anda ordaki veriler kayboluyor daha sonra diğer sayfaya baktığımda kaybolan tarihlerin gerekli yerlere kopyalanmadıgını gordum.Yardımlarınızı bekliyorum
Saygılarımla

Dosyayı biraz daha anlaşılır hale getirmeye çalıştım.

 

[zafer]

Merhaba

Evet veri gelmez. Nedenide sizn TC adlı sayfanızda J ve K sütünunda tarihlerle ilgili
veriler olmadığı için. Veri girip deneyiniz.

 

[zafer]

Merhaba

2. bir nedende sayfa1 deki Verierin karşılaştırılacağı hücrenin referansında değişiklik yapmayın.

Ben A9 hücresini makroda referans gösterdim.siz yeni bir tabloda A10 hücresini referans göstermişsiniz.

Sayfadxa değişiklik yapacak olursanız. Kodlarda da değişiklik yapmanız gerekir.

 

[why35]

Merhaba

Evet veri gelmez. Nedenide sizn TC adlı sayfanızda J ve K sütünunda tarihlerle ilgili
veriler olmadığı için. Veri girip deneyiniz.

Sayfa1 den TC ye kopyalanacak ama veriler.
Tc de veri olmaması normal.
Sanırım sorunumu dogru anlatamadım o yüzden oldu

 

[zafer]

Merhaba