Vba kod yardımı

Dunya_

Altın Üye
Katılım
19 Ekim 2009
Mesajlar
410
Beğeniler
3
Excel Vers. ve Dili
2007
#1
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

dalgalikur

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2006
Mesajlar
1,987
Beğeniler
202
Excel Vers. ve Dili
2007-2013
#2
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.
 

Dunya_

Altın Üye
Katılım
19 Ekim 2009
Mesajlar
410
Beğeniler
3
Excel Vers. ve Dili
2007
#3
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