Veri Aktarma

Katılım
1 Ağustos 2019
Mesajlar
839
Excel Vers. ve Dili
Türkçe excel 2016
İngilizce excel 2016
Değerli üstatlarım 5000 satırlık bir personel listem var. Bu satır sayısı gün geçtikçede artmaktadır. Projeler arası personel giriş çıkışı çok olmaktadır. Kullanmış olduğum makro sadece mükerrer kayıtlarda bana sorun çıkarmaktadır. Benim yapmak istediğim girmiş olduğum toplu verilerde Ana sayfaya aktardığımda TC Kimlik numarasına göre arama yapıp mükerrer olmayan kayıtlara verileri aktarması, mükerrrer kayıtlarda ise veriyi İŞTEN AYRILAN mükerrer kayıta değilde ETKİN olarak gözüken mükerrer kayıta veriyi aktarmasını istiyorum. Örnek kayıtları çalışma sayfasında paylaştım. Kullanmış olduğum makroda sayfada mevcuttur. Şimdiden yardımlarınız için teşekkürler.
 

Ekli dosyalar

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Kullandığınız kelimeler forum kurallarına uygun değil.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Forum kurallarına tekrar gözatmanızı rica ediyorum.
 
Katılım
1 Ağustos 2019
Mesajlar
839
Excel Vers. ve Dili
Türkçe excel 2016
İngilizce excel 2016
Ustatlarim yardımlarınızı bekliyorum
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Userformla veri aktarırkenmi bu mükererlik kontrolu yapılacak.
Birde Etkin hangi sütun,işten ayrılan hangi sütun?
 
Katılım
1 Ağustos 2019
Mesajlar
839
Excel Vers. ve Dili
Türkçe excel 2016
İngilizce excel 2016
Userformla veri aktarırkenmi bu mükererlik kontrolu yapılacak.
Birde Etkin hangi sütun,işten ayrılan hangi sütun?
Evren hocam İŞTEN ÇIKIŞ sayfasındaki çizelgeye bilgileri yazıp ANA SAYFA sayfasına aktarırken mükerrer kontrolü yapacak. Mevcut makro yapıyor. Ancak Aynı personel 3 defa giriş çıkış yaptığında veriyi en son güncel kayda aktaracağına bir önceki mükerrer kayda aktarıyor. Bende bu sorunu X sütununda bulunan Etkin ve İşten Çıkış durumunu baz alarak aşabileceğimi düşündüm. Yani verileri çalışma durumu Etkin yazan mükerrer kayda aktarması durumunda sorun çözülür
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Öncekini silin bunu yazın.
Kod:
Sub aktar_59()
Dim sh As Worksheet, k As Range, sonsat As Long, i As Long
Dim adr As String
Set sh = Sheets("ANA SAYFA")
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To sonsat
    Set k = sh.Range("C3:C" & Rows.Count).Find(Range("A" & i).Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        adr = k.Address
        Do
            If sh.Cells(k.Row, "X").Value = "Etkin" Then
                sh.Cells(k.Row, "K").Value = Range("B" & i).Value
                sh.Cells(k.Row, "L").Value = Range("C" & i).Value
                sh.Cells(k.Row, "X").Value = Range("D" & i).Value
                Exit Do
            End If
            Set k = sh.Range("C3:C" & Rows.Count).FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adr
    End If
Next
MsgBox "BİTTİ"
End Sub
 
Katılım
1 Ağustos 2019
Mesajlar
839
Excel Vers. ve Dili
Türkçe excel 2016
İngilizce excel 2016
Öncekini silin bunu yazın.
Kod:
Sub aktar_59()
Dim sh As Worksheet, k As Range, sonsat As Long, i As Long
Dim adr As String
Set sh = Sheets("ANA SAYFA")
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To sonsat
    Set k = sh.Range("C3:C" & Rows.Count).Find(Range("A" & i).Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        adr = k.Address
        Do
            If sh.Cells(k.Row, "X").Value = "Etkin" Then
                sh.Cells(k.Row, "K").Value = Range("B" & i).Value
                sh.Cells(k.Row, "L").Value = Range("C" & i).Value
                sh.Cells(k.Row, "X").Value = Range("D" & i).Value
                Exit Do
            End If
            Set k = sh.Range("C3:C" & Rows.Count).FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adr
    End If
Next
MsgBox "BİTTİ"
End Sub
Evren Hocam Allah senden razı olsun süpersin valla çok teşekkür ederim
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Rica ederim.O sizin süperliğiniz.
İyi çalışmalar.:cool:
 
Üst