yesimgurol
Altın Üye
- Katılım
- 8 Aralık 2011
- Mesajlar
- 952
- Excel Vers. ve Dili
- Excel 2016,32bit
- Altın Üyelik Bitiş Tarihi
- 14-02-2026
Tamam sanırım
12 nolu mesajınızdaki kodlarda
Resim numaraları değişmiş o yüzden olmuyormuş sanırım
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