Vba kod yardımı

[Mehmet Sait]

Merhabalar,

Ekli dosyada ki tabloda bulunan bilgileri AJ sutununda bulunan tarihi arayıp ilgili tarihe yazıyor. Ancak 2. bir şart daha eklemek istiyorum. İlgili tarihi ve B3 ü baz alarak AJ AP ile AS AY sütunlarına yazdırmak istiyorum. istediğim şartı şu koda Set Bul = Range("AJ:AJ").Find(Range("$F$2"), , , xlWhole) ekleyemedim.

Yardımlarınız için teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.
Eğer doğru anladıysam aşağıdaki kodlar ile yapabilirsiniz.

Sub test()
    Dim Adres As String
    If Range("B3").Value = "Gece Vardiyası" Then
        Adres = "AJ:AJ"
    ElseIf Range("B3").Value = "Gündüz Vardiyası" Then
        Adres = "AS:AS"
    Else
        MsgBox "'B3' hücresinde geçersiz bir veri var."
        Exit Sub
    End If
    
    Set Bul = Range(Adres).Find(Range("$F$2"), , , xlWhole)
End Sub

Ayrıca kodlarınızın en üst satırına Option Compare Text ekleyin.
Bu satır büyük küçük harf duyarlılığını kaldırır.

 

[Mehmet Sait]

Merhaba Hocam,

B7 de yazılı olan vardiya ve F2 de yazılı olan tarihi baz alarak AJ sütununda ilgili tarihi bulup H51, H52 I46, I47 ,I51,I52 sütunlarında bulunan değerleri Gündüz vardiyası için AK, AP sütunlarına, gece vardiyası için ise AR AX sütunlarına yazmasını istiyorum

Yardımlarınız için teşekkür ederim.