Kesişim

[necmettin_tok]

Sayfa1 deki B2 deki Tarih Sayfa2 deki 1. Satırda aranacak
Sayfa1 deki B3 teki Yaka No Sayfa2 deki 1. Sütunda aranacak
İki aramanın kesiştiği Hücreye B+ deki bilgi yazılacak.
Bu foruma emeği geçen herkese teşekkürlerimi iletirim.

 

[Ali]

B+ ne demek?

 

[veyselemre]

B+ yı B4 olarak anladım. 4 yazarken shift e basılmış olabilir.

Sub aKTAR()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")

On Error GoTo hata_gun
sut = s2.Rows("1:1").Find(What:=s1.[b2], LookAt:=xlWhole).Column

On Error GoTo hata_sira
sat = s2.Columns("A:A").Find(What:=s1.[b3], LookAt:=xlWhole).Row

s2.Cells(sat, sut) = s1.[b4]
MsgBox "Aktarım Tamamlandı..."
Exit Sub
hata_sira:
MsgBox s1.[b3] & " Yaka No Bulunamadı..."

Exit Sub
hata_gun:
MsgBox s1.[b2] & " Tarihi Bulunamadı..."

End Sub

 

[necmettin_tok]

İlave bir istek

Kıymetli Veyselemre Çok teşekkür ederim çok güzel oldu. Yalnız Sayfa2 de bulunan yaka numaraları sıradan bir döngüye bağlı olarak işleme girebilirmi. Yani o tarihe ait yaka numaralarının hepsine sıradan aynı veri aktarılacak. Mantığı nedir derseniz ben bu yaka numaraları için ayrıca bir değişken düşünüyorum. 1.,2.,3. vardiya diye...Hazırlamış olduğum bir günlük liste tablosundan veri aktaracağım.

 

[necmettin_tok]

günlükliste

Üzerinde çalıştığım listeyi de ekte sunuyorum.

 

[necmettin_tok]

günlükliste

Liste ekte sunuldu.