Makroda Değişiklik

[hbgny]

Merhaba,

Elimde bir makro var. Bu makroyu dosyada belirttiğim şekilde değişiklik yapmaya yardımcı olabilir misiniz?

 

[askm]

Aşağıdaki şekilde değiştirip deneyin.

If isyeri <> Empty And bolum <> Empty Then
    S = S & "  WHERE (EMFLINE.YEAR_='" & yıl & "') and  (EMFLINE.BRANCH= '" & isyeri & "') and  (EMFICHE.DEPARTMENT= '" & bolum & "')"
ElseIf isyeri <> Empty And bolum = Empty Then
    S = S & "  WHERE (EMFLINE.YEAR_='" & yıl & "') and  (EMFLINE.BRANCH= '" & isyeri & "') "
ElseIf isyeri = Empty And bolum <> Empty Then
    S = S & "  WHERE (EMFLINE.YEAR_='" & yıl & "') and  (EMFICHE.DEPARTMENT= '" & bolum & "')"
End If

 

[hbgny]

Denedim, olmuş. Çok teşekkür ederim.

 

[Orion1]

Değişkenlerde Türkçe karakterler kullanmasanız iyi olur.

 

[hbgny]

Ben makro yapmasını bilmiyorum. Öğrenmeye çalışıyorum. Elimde olan dosyayı paylaştım. Sizler gibi olabilmek için 40 fırın ekmek yemem lazım