Belirli Hücrelerden Gerekli Verilerin Alınıp Gerekli Hücrelere Yazılabilmesi

[mmmggg]

Merhaba arkadaşlar. Ben başka bir programdan aldığım veriyi exel'e yapıştırıp, daha sonra başka bir bölümde, oluşturduğum panonun içerisine örnek dosyada açıkladığım gibi doldurmasını itiyorum. yardım ederseniz çok uzun süren işimi baya kısa zamanda yapmamı sağlayacaksınız. şimdiden çok teşekkür ederim.

 

[Korhan Ayhan]

Aşağıdaki kodu boş bir modüle uygulayıp deneyiniz.

Sub BAKIM_RAPORU()
    Range("B2:H19").ClearContents
    
    For Each Veri In Range("J2:J" & Cells(Rows.Count, "J").End(3).Row)
        Set Bul_Bakim = Range("A2:A19").Find(Veri.Value, , , xlWhole)
        Set Bul_Tarih = Range("B1:H1").Find(Veri.Offset(0, 2).Value, , , xlWhole)
        If Not Bul_Bakim Is Nothing And Not Bul_Tarih Is Nothing Then
            If Cells(Bul_Bakim.Row, Bul_Tarih.Column) = "" Then
                Cells(Bul_Bakim.Row, Bul_Tarih.Column) = Veri.Offset(0, 1).Value
            Else
                Cells(Bul_Bakim.Row, Bul_Tarih.Column) = Cells(Bul_Bakim.Row, Bul_Tarih.Column) & "-" & Veri.Offset(0, 1).Value
            End If
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[mmmggg]

Çok teşekkür ederim çok güzel olmuş. birde benim mesajı eksik yazmamdan dolayı bir yanlışlık olmuş. Bu formüle birde "Tarih" kısmında c.tesi ve pazar gününe (06.Oca - 07.Oca) gelen seri nolarının hepsini cuma (05.Oca) gününe ekleyecek şekilde yazabilirmisiniz. teşekkürler.

 

[Korhan Ayhan]

Verdiğiniz günlerde bir sorun var. Kontrol edermisiniz.

7 Ocak = Cumartesi
8 Ocak = Pazar

 

[mersilen]

Korhan bey merhaba,
Kodun aşağıdaki kısmını açıklamanız mümkün mü?

If Not Bul_Bakim Is Nothing And Not Bul_Tarih Is Nothing Then


Cevabı aşağıdaki linkte buldum.Teşekkürler.
http://www.excel.web.tr/f50/if-not-k-is-nothing-then-ne-anlama-t52770.html

If k Is Nothing Then = k Yoksa anlamına geliyor
If Not k Is Nothing Then = k varsa anlamına geliyor

 

[mmmggg]

Verdiğiniz günlerde bir sorun var. Kontrol edermisiniz.

7 Ocak = Cumartesi
8 Ocak = Pazar

Korhan bey o tarihler ve diğer değerler temsili. Ben en baştaki tarih p.tesi olarak düşünerek hazırladım. İlginiz teşekkürler.

 

[mmmggg]

C.tesi Pazar'a gelen seri numaralarını cuma gününe gelenlere ilave edip cumaya yazdırmayada bakabilirmisiniz Korhan bey. Ben Visial Basic'ten çok anlamıyorum. üzerinde biraz çalıştım ama yapamaddım. normal excel formülüyle yapabiliyorum ama sizin formülü tamamlarsam daha güzel olacak. yardımcı olursanız çok sevinirim.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub BAKIM_RAPORU()
    Range("B2:H19").ClearContents
    
    For Each Veri In Range("J2:J" & Cells(Rows.Count, "J").End(3).Row)
        Set Bul_Bakim = Range("A2:A19").Find(Veri.Value, , , xlWhole)
        If Weekday(Veri.Offset(0, 2).Value, vbMonday) = 6 Then
            Tarih = Veri.Offset(0, 2).Value - 1
        ElseIf Weekday(Veri.Offset(0, 2).Value, vbMonday) = 7 Then
            Tarih = Veri.Offset(0, 2).Value - 2
        Else
            Tarih = Veri.Offset(0, 2).Value
        End If
        
        Set Bul_Tarih = Range("B1:H1").Find(Tarih, , , xlWhole)
        If Not Bul_Bakim Is Nothing And Not Bul_Tarih Is Nothing Then
            If Cells(Bul_Bakim.Row, Bul_Tarih.Column) = "" Then
                Cells(Bul_Bakim.Row, Bul_Tarih.Column) = Veri.Offset(0, 1).Value
            Else
                Cells(Bul_Bakim.Row, Bul_Tarih.Column) = Cells(Bul_Bakim.Row, Bul_Tarih.Column) & "-" & Veri.Offset(0, 1).Value
            End If
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub