Makro veya Excell ile eşleştirme"

[saqomaniaq]

örnek ekli dosyada ; sarı renkli yerler sabit kalmak kaydı ile;
a sütununda yer alan kodlar ile e sütununda yer alan kodların
eşleşip f sütununda ki bilgilerin d sütununa aktarılmasını istiyorum

örnek olarak
e1 hücresi a39 ile eşleşip f1 hücresindeki tarih saat d39 hücresine yazılacak

yardımlarınız için şimdiden teşekkürler.

 

[iborottifbg]

Arkadaşlar resmi kurumda çalışıyorum, excelden bir işlem yap onu çözemedim bundan dolayı her ay 5-10 top kağıt harcanmakta yardımcı olursanız sevinirim...
A da bilirkişi isimleri var, B de bilirkişilik yaptığı dosyalar var.
Ali Veli - 2013/1
Ali Veli - 2013/2
Ali Veli - 2013/1
Osman Veli 2013/1
Mehmet Veli 2013/2

A daki (Ali Veli) veri ile B deki(2013/1) karşılaştırıp bana Ali Veli ye 2013/1 dosyasının iki defa verildiğini tespit etmesini istiyorum.. yeni konu açmak istedim ama bulamadım
Yardımlarınız için çok teşekkür ederim...

 

[Orion1]

Dosyanız ektedir.

Sub eslestir59()
Dim sat1 As Long, sat2 As Long, k As Range, i As Long
Dim tar, zaman, tarih, ay As Integer, gun As Integer
Dim saat, dakika, saniye
Sheets("Sayfa1").Select
Range("D:D").ClearContents
sat1 = Cells(Rows.Count, "A").End(xlUp).Row
sat2 = Cells(Rows.Count, "E").End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To sat1
    Set k = Range("E1:E" & sat2).Find(Cells(i, "A").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        tarih = k.Offset(0, 1).Value
        tar = Left(tarih, Len(tarih) - 6)
        yil = Right(tar, 2)
        tar = VBA.Left(tar, VBA.Len(tar) - 2)
        ay = Right(tar, 2)
        gun = VBA.Left(tar, VBA.Len(tar) - 2)
        tar = VBA.DateSerial(yil, ay, gun)
        zaman = Right(tarih, 6)
        saniye = Right(zaman, 2)
        dakika = Mid(zaman, 3, 2)
        saat = Left(zaman, 2)
        zaman = TimeSerial(saat, dakika, saniye)
        Cells(i, "D").Value = CDate(CDate(tar) & " " & CDate(zaman))
        Cells(i, "D").NumberFormat = "dd.mm.yyyy hh:mm:ss"
    End If
    Set k = Nothing
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com", vbOKOnly
    
End Sub

 

[Orion1]

Arkadaşlar resmi kurumda çalışıyorum, excelden bir işlem yap onu çözemedim bundan dolayı her ay 5-10 top kağıt harcanmakta yardımcı olursanız sevinirim...
A da bilirkişi isimleri var, B de bilirkişilik yaptığı dosyalar var.
Ali Veli - 2013/1
Ali Veli - 2013/2
Ali Veli - 2013/1
Osman Veli 2013/1
Mehmet Veli 2013/2

A daki (Ali Veli) veri ile B deki(2013/1) karşılaştırıp bana Ali Veli ye 2013/1 dosyasının iki defa verildiğini tespit etmesini istiyorum.. yeni konu açmak istedim ama bulamadım
Yardımlarınız için çok teşekkür ederim...

Örnek dosya ekleyip üzerinde açıklama yapınız.

 

[saqomaniaq]

Orion1 çok hızlı cevabınız için teşekkür ederim . Aslında bu bir tarih-saat formatı 21213210206.
olması gereken şekli 02.12.2013 21:02:06 bu.
Ayıp olacak ama bu konudada yardımcı olur musunuz ?
Tekrardan teşekkür ederim .

 

[Orion1]

Orion1 çok hızlı cevabınız için teşekkür ederim . Aslında bu bir tarih-saat formatı 21213210206.
olması gereken şekli 02.12.2013 21:02:06 bu.
Ayıp olacak ama bu konudada yardımcı olur musunuz ?
Tekrardan teşekkür ederim .

Örnek dosya ekleyiniz.

 

[saqomaniaq]

örnek dosya ekleyiniz.

örnek dosya ve açıklama ektedir.

Teşekkürler.

 

[Orion1]

örnek dosya ve açıklama ektedir.

Teşekkürler.

Dosyanızı 3 nolu mesajdan indirebilirisniz.