Vba kod yardımı

Mehmet Sait

Altın Üye
Katılım
19 Ekim 2009
Mesajlar
834
Excel Vers. ve Dili
Office 2016 TR
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.
 

Ekli dosyalar

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,802
Excel Vers. ve Dili
2019 Türkçe
Merhaba.
Eğer doğru anladıysam aşağıdaki kodlar ile yapabilirsiniz.


Kod:
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

Altın Üye
Katılım
19 Ekim 2009
Mesajlar
834
Excel Vers. ve Dili
Office 2016 TR
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.
 

Ekli dosyalar

Son düzenleme:
Üst