Makro Revize

[metin_0606]

ilktarih = CLng(CDate(Range("G3").Value))
sontarih = CLng(CDate(Range("H3").Value))
sorgu = "Select f1,f2,f4,f18,f21,f30,f35,f36,f37,f38 from [PERSONEL$A3:BK65536] WHERE (CLng(CDate(f35)) BETWEEN  '" & ilktarih & "'  and '" & sontarih & "' and NOT isnull(f35)) AND f30='" & Sayfa1.Range("B1") & "'"

Sorgu satırındaki kırmızı renkle belirttiğim kısmı satırın devamına C1 hücresi içinde eklemek istiyorum .Sorgu satırını nasıl revize edebiliriz

 

[metin_0606]

f30='" & Sayfa1.Range("B1") & "'"

 

[Korhan Ayhan]

C1 hücresi hangi sütunla eşleşecek? Yani koşulunuz nedir?

 

[metin_0606]

C1 hücresi hangi sütunla eşleşecek? Yani koşulunuz nedir?

f3 sütunu ile eşleşecek

 

[Korhan Ayhan]

Kendinize uyarlarsınız.

sorgu = "Select f1,f2,f4,f18,f21,f30,f35,f36,f37,f38 from [PERSONEL$A3:BK65536] WHERE (CLng(CDate(f35)) BETWEEN  '" & ilktarih & "'  and '" & sontarih & "' and NOT isnull(f35)) AND f30='" & Sayfa1.Range("B1") & "' And F3='" & Sayfa1.Range("C1") & "'"

 

[metin_0606]

Kendinize uyarlarsınız.

sorgu = "Select f1,f2,f4,f18,f21,f30,f35,f36,f37,f38 from [PERSONEL$A3:BK65536] WHERE (CLng(CDate(f35)) BETWEEN  '" & ilktarih & "'  and '" & sontarih & "' and NOT isnull(f35)) AND f30='" & Sayfa1.Range("B1") & "' And F3='" & Sayfa1.Range("C1") & "'"

Teşekküler Korhan Hocam Adamsın