• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Çözüldü Şarta Göre Form Üzerinde Resim Açılması Hakkında..

Tamam sanırım:giggle:
12 nolu mesajınızdaki kodlarda
Kod:
Dim say As Long
say = Application.WorksheetFunction.CountA(Range("B3:B17"))
If say = 1 Then
    Image30.Visible = False: Image37.Visible = False: Image39.Visible = True
End If
If say = 2 Then
    Image40.Visible = False: Image29.Visible = False: Image38.Visible = True
End If
If say = 3 Then
   Image41.Visible = False: Image35.Visible = False: Image21.Visible = True
End If

Resim numaraları değişmiş o yüzden olmuyormuş sanırım:giggle:
 
Sayın orıon, :giggle:
Aynı sorun oldu yine :-( Formüllerle başım dertte:-(
B3:17 değerleri de formül ile gelirse, tüm hücreleri dolu görüyor sanki:-(

O yüzden Evren Bey, öncelikle değerleri formülden kurtarmam gerekiyor sanırım:unsure::rolleyes:
 
Son düzenleme:
Sayın orıon, :giggle:
Aynı sorun oldu yine :-( Formüllerle başım dertte:-(
B3:17 değerleri de formül ile gelirse, tüm hücreleri dolu görüyor sanki:-(

O yüzden Evren Bey, öncelikle değerleri formülden kurtarmam gerekiyor sanırım:unsure::rolleyes:
Olabilir.:cool:
 
Merhabalar,

Sorun teşkil eden formüllü hücreleri (B20,F20,J20) makro ile aktararak bu hücreleri serbest hale getirmiş oldum. Sonrasında hali hazırdaki Sayın Evren Bey'in düzenlemiş olduğu kodlar sorunsuz çalıştı. (5 nolu mesajda bulunan kodlar)

İlginize tekrar teşekkür ederim, Sayın Evren Bey..
 
Merhabalar,

Sorun teşkil eden formüllü hücreleri (B20,F20,J20) makro ile aktararak bu hücreleri serbest hale getirmiş oldum. Sonrasında hali hazırdaki Sayın Evren Bey'in düzenlemiş olduğu kodlar sorunsuz çalıştı. (5 nolu mesajda bulunan kodlar)

İlginize tekrar teşekkür ederim, Sayın Evren Bey..
Rica ederim.
İyi çalışmalar.:cool:
 
Geri
Üst