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

yesimgurol · 27 Haziran 2018

Merhabalar ,

Oluşturmaya çalıştığım dosyam için bir şey hayal ettim acaba olur mu diye düşünüyorken araştırma yaptığımda userform üzerinde resim çağırma örneklerine rastladım fakat kendime uyarlama konusunda ciddi sorun yaşadım:-(

Düşündüğüm olay şöyle ,
Şİmdi 4 adet butonum var, eğerki ; 1.buton için örnek vermem gerekir ise , R21 hücresindeki değer 100,00% ise butonun yanında OLUMLU resmi çıksın.
Ben ekteki dosyamda manuel olarak yerleştirmiştim. Açıklamaları da yapmıştım.

Orion1 · 27 Haziran 2018

Dosyanız ektedir.

Kod:

Private Sub UserForm_Initialize()
Dim arr, i As Byte
arr = Array("", 21, 30, 31, 32)
For i = 1 To 4
    Me.Controls("image" & arr(i)).Visible = False
Next i
If Range("R21").Value = 1 Then Image29.Visible = False: Image21.Visible = True
If Range("S21").Value = 1 Then Image25.Visible = False: Image30.Visible = True
If Range("T21").Value = 1 Then Image27.Visible = False: Image31.Visible = True
If Range("U21").Value = 1 Then Image28.Visible = False: Image32.Visible = True
End Sub

yesimgurol · 27 Haziran 2018

Sayın Orion, Harika olmuş yaaa

Ay çok mutlu oldum gerçekten yaa, çok teşekkür ederim.

Orion1 · 27 Haziran 2018

yesimgurol' Alıntı:
Sayın Orion, Harika olmuş yaaa Ay çok mutlu oldum gerçekten yaa, çok teşekkür ederim.

Rica ederim.
İyi çalışmalar.

yesimgurol · 8 Temmuz 2018

Sayın Orion merhabalar,

2 nolu mesajınızda yapmış olduğunuz kodları kendime aşağıdaki şekliyle uyarladım.

Kod:

Private Sub UserForm_Initialize()
Dim arr, i As Byte

With ListView1
    .View = lvwReport  'ListView de buna dikkat etmeliyiz, Eğer ListWiev de burayı lvwReport olarak ayarlamazsak diğer yapılan işlemler listemizde gözükmeyecektir.
     .ColumnHeaders.Add , , "MARKER ", 50
     .ColumnHeaders.Add , , "ALEL1", 35, 2
     .ColumnHeaders.Add , , "ALEL2", 40, 2
      .ColumnHeaders.Add , , "ALEL1", 40, 2
       .ColumnHeaders.Add , , "ALEL2", 40, 2
        .ColumnHeaders.Add , , "ALEL1", 40, 2
         .ColumnHeaders.Add , , "ALEL2", 40, 2
         .ColumnHeaders.Add , , " ", 20, 2
         .ColumnHeaders.Add , , "BABA EŞLEŞEN", 65, 2
         .ColumnHeaders.Add , , "DOMINANT GEN", 70, 2
         .ColumnHeaders.Add , , "P.INDEX", 50, 2
          .ColumnHeaders.Add , , "DIŞLAMA", 60, 2
          
    
    
    
   .FullRowSelect = True 'liste elemanını seçtiğinizde tüm satır seçili olur.
   .Gridlines = True 'Listeyi çizgili yapar.
End With

arr = Array("", 39, 38, 21)
For i = 1 To 3
    Me.Controls("image" & arr(i)).Visible = False
Next i
If Sheets("DIŞLAMA").Range("B20").Value = "" Then Image30.Visible = False: Image37.Visible = False: Image39.Visible = True
If Sheets("DIŞLAMA").Range("F20").Value = "" Then Image40.Visible = False: Image29.Visible = False: Image38.Visible = True
If Sheets("DIŞLAMA").Range("J20").Value = "" Then Image41.Visible = False: Image35.Visible = False: Image21.Visible = True

If Sheets("DIŞLAMA").Range("B20").Value = 1 Then Image30.Visible = True: Image37.Visible = False: Image39.Visible = False
If Sheets("DIŞLAMA").Range("F20").Value = 1 Then Image40.Visible = True: Image29.Visible = False: Image38.Visible = False
If Sheets("DIŞLAMA").Range("J20").Value = 1 Then Image41.Visible = True: Image35.Visible = False: Image21.Visible = False

If Sheets("DIŞLAMA").Range("B20").Value = 2 Then Image30.Visible = True: Image37.Visible = False: Image39.Visible = False
If Sheets("DIŞLAMA").Range("F20").Value = 2 Then Image40.Visible = True: Image29.Visible = False: Image38.Visible = False
If Sheets("DIŞLAMA").Range("J20").Value = 2 Then Image41.Visible = True: Image35.Visible = False: Image21.Visible = False

If Sheets("DIŞLAMA").Range("B20").Value > 3 Then Image30.Visible = False: Image37.Visible = True: Image39.Visible = False
If Sheets("DIŞLAMA").Range("F20").Value > 3 Then Image40.Visible = False: Image29.Visible = True: Image38.Visible = False
If Sheets("DIŞLAMA").Range("J20").Value > 3 Then Image41.Visible = False: Image35.Visible = True: Image21.Visible = False

If Sheets("DIŞLAMA").Range("B22").Value = 15 Then Image30.Visible = False: Image37.Visible = False: Image39.Visible = False
If Sheets("DIŞLAMA").Range("F22").Value = 15 Then Image40.Visible = False: Image29.Visible = False: Image38.Visible = False
If Sheets("DIŞLAMA").Range("J22").Value = 15 Then Image41.Visible = False: Image35.Visible = False: Image21.Visible = False

End Sub

DIŞLAMA sayfasındaki belirtilen hücrelere manuel olarak değer yazdığımda kodlar çok güzel şekilde çalışmakta, fakat kodlarda ki hücreye şu formül ile değer aldığımda çalışmıyor.

Kod:

=EĞER(TOPLA.ÇARPIM(($B$3:$B$17<>"")*($B$3:$B$17<>0))=0;"";TOPLA.ÇARPIM(($B$3:$B$17<>"")*($B$3:$B$17<>0))&"")

Nerede yanlış yapıyorum acaba

yesimgurol · 9 Temmuz 2018

Küçük bir sorun var ama anlayamadım.

DIŞLAMA sayfasındaki belirtilen hücrelere manuel olarak değer yazdığımda kodlar çok güzel şekilde çalışmakta, fakat kodlarda ki hücreye şu formül ile değer aldığımda çalışmıyor.

yesimgurol · 9 Temmuz 2018

Formül yerine şöyle bir şey yapılabilir mi?

Private Sub UserForm_Initialize()

Kodlarım 5 nolu mesaj da mevcut olduğu gibidir.

Acaba ;

Kod:

If Sheets("DIŞLAMA").Range("B20").Value = "" Then Image30.Visible = False: Image37.Visible = False: Image39.Visible = True
If Sheets("DIŞLAMA").Range("F20").Value = "" Then Image40.Visible = False: Image29.Visible = False: Image38.Visible = True
If Sheets("DIŞLAMA").Range("J20").Value = "" Then Image41.Visible = False: Image35.Visible = False: Image21.Visible = True

Buradaki B20 yerine ; B3:B17 içerisinde dolu hücre yok ise diye olsa, ben formüllerden kurtulmuş olurum diye düşündüm kendimce

Olur ise diğer kısımları da ona göre düzenlerim.

Orion1 · 9 Temmuz 2018

deneyiniz.

Kod:

If WorksheetFunction.CountA(Range("B3:B17")) = 0 Then
    Image30.Visible = False: Image37.Visible = False: Image39.Visible = True
    Image40.Visible = False: Image29.Visible = False: Image38.Visible = True
    Image41.Visible = False: Image35.Visible = False: Image21.Visible = True
End If

yesimgurol · 9 Temmuz 2018

Sayın Orıon merhabalar

8 nolu mesajınızdaki kod bloğunu çoğaltmak istedim ama resimleri değiştiremedim. Yani hazırladığınız kodlarda B3:B17 arasında 0 dolu hücre var ise evet resimler ona göre değişti, lakin bende bu kodlara bakarak, 1 olursa , 2 olursa v.s. gibi çoğaltmak istemiştim.

Orion1 · 9 Temmuz 2018

yesimgurol' Alıntı:
Sayın Orıon merhabalar

8 nolu mesajınızdaki kod bloğunu çoğaltmak istedim ama resimleri değiştiremedim. Yani hazırladığınız kodlarda B3:B17 arasında 0 dolu hücre var ise evet resimler ona göre değişti, lakin bende bu kodlara bakarak, 1 olursa , 2 olursa v.s. gibi çoğaltmak istemiştim.

B3 B4 ve B5 için yaptım.Size bir fikir verebilir.

Kod:

    If Range("B3").Value = 1 Then Image30.Visible = False: Image37.Visible = False: Image39.Visible = True
    If Range("B4").Value = 2 Then Image40.Visible = False: Image29.Visible = False: Image38.Visible = True
    If Range("B5").Value = 3 Then Image41.Visible = False: Image35.Visible = False: Image21.Visible = True

yesimgurol · 9 Temmuz 2018

Kod:

 If Range("B3").Value = 1 Then Image30.Visible = False: Image37.Visible = False: Image39.Visible = True
    If Range("B4").Value = 2 Then Image40.Visible = False: Image29.Visible = False: Image38.Visible = True
    If Range("B5").Value = 3 Then Image41.Visible = False: Image35.Visible = False: Image21.Visible = True

Sayın orıon, buradaki kodlarda B3 'ün değeri 1 olur ise evet, lakin benim demek istediğim şöyle idi;

Eğer ki , B3:B17 içerisindeki dolu hücreler sayılsın, ve o sayıya göre değerlendirmek istemekteyim. Yani dolu hücre sayısını şart almam gerekiyor. Yani bu aralık içerisindeki dolu hücreleri sayıp eğer 1 tane dolu var ise, 0 dolu var ise v.s. diye çoğaltmak istiyorum.

Orion1 · 9 Temmuz 2018

yesimgurol' Alıntı:
Kod:

If Range("B3").Value = 1 Then Image30.Visible = False: Image37.Visible = False: Image39.Visible = True If Range("B4").Value = 2 Then Image40.Visible = False: Image29.Visible = False: Image38.Visible = True If Range("B5").Value = 3 Then Image41.Visible = False: Image35.Visible = False: Image21.Visible = True

Sayın orıon, buradaki kodlarda B3 'ün değeri 1 olur ise evet, lakin benim demek istediğim şöyle idi;

Eğer ki , B3:B17 içerisindeki dolu hücreler sayılsın, ve o sayıya göre değerlendirmek istemekteyim. Yani dolu hücre sayısını şart almam gerekiyor. Yani bu aralık içerisindeki dolu hücreleri sayıp eğer 1 tane dolu var ise, 0 dolu var ise v.s. diye çoğaltmak istiyorum.

Böylemi?

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

yesimgurol · 9 Temmuz 2018

Evet Sanırım böyle olacak, Sayın Orıon..
Fakat "Private Sub UserForm_Initialize() " kodlarına tam olarak nasıl yapıştırdım gerekiyor

Yaptım ama olmadı:-(

Bu şeklide yapmıştım ben,

Kod:

arr = Array("", 39, 38, 21)
For i = 1 To 3
    Me.Controls("image" & arr(i)).Visible = False
Next i

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 = False
End If
If say = 3 Then
   Image41.Visible = True: Image35.Visible = False: Image21.Visible = False
End If

End Sub

Orion1 · 9 Temmuz 2018

Initialize sadece form açılırken çalışır.

yesimgurol · 9 Temmuz 2018

Hmm, aslında bende form açıldığında olsun istiyorum

Formu açtığımda, DIŞLAMA sayfasındaki B3:B17 arasındaki dolu hücreler sayılsın ona göre ilgili resimler çıksın.

Orion1 · 9 Temmuz 2018

yesimgurol' Alıntı:
Hmm, aslında bende form açıldığında olsun istiyorum
Formu açtığımda, DIŞLAMA sayfasındaki B3:B17 arasındaki dolu hücreler sayılsın ona göre ilgili resimler çıksın.

Aşağıdaki olaya yapıştırın.

Kod:

Private Sub UserForm_Initialize()

yesimgurol · 9 Temmuz 2018

Kod:

Private Sub UserForm_Initialize()
Dim arr, i As Byte

With ListView1
    .View = lvwReport  'ListView de buna dikkat etmeliyiz, Eğer ListWiev de burayı lvwReport olarak ayarlamazsak diğer yapılan işlemler listemizde gözükmeyecektir.
     .ColumnHeaders.Add , , "MARKER ", 50
     .ColumnHeaders.Add , , "ALEL1", 35, 2
     .ColumnHeaders.Add , , "ALEL2", 40, 2
      .ColumnHeaders.Add , , "ALEL1", 40, 2
       .ColumnHeaders.Add , , "ALEL2", 40, 2
        .ColumnHeaders.Add , , "ALEL1", 40, 2
         .ColumnHeaders.Add , , "ALEL2", 40, 2
         .ColumnHeaders.Add , , " ", 20, 2
         .ColumnHeaders.Add , , "BABA EŞLEŞEN", 65, 2
         .ColumnHeaders.Add , , "DOMINANT GEN", 70, 2
         .ColumnHeaders.Add , , "P.INDEX", 50, 2
          .ColumnHeaders.Add , , "DIŞLAMA", 60, 2
          
    
    
    
   .FullRowSelect = True 'liste elemanını seçtiğinizde tüm satır seçili olur.
   .Gridlines = True 'Listeyi çizgili yapar.
End With

arr = Array("", 39, 38, 21)
For i = 1 To 3
    Me.Controls("image" & arr(i)).Visible = False
Next i

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 = False
End If
If say = 3 Then
   Image41.Visible = True: Image35.Visible = False: Image21.Visible = False
End If

End Sub

Bu şekilde yapmıştım ama olmadı

Orion1 · 9 Temmuz 2018

say değişkeni hangi sayfadan alıyorsa o sayfayıda range nin önüne yazıpta deneyiniz.

yesimgurol · 9 Temmuz 2018

Kod:

say = Application.WorksheetFunction.CountA(Sheets("DIŞLAMA").Range("B3:B17"))

Bu şekilde yaptım

Olmadı

Orion1 · 9 Temmuz 2018

yesimgurol' Alıntı:
Kod:

say = Application.WorksheetFunction.CountA(Sheets("DIŞLAMA").Range("B3:B17"))

Bu şekilde yaptım Olmadı

Aşağıdaki kodda hepsi false.

Kod:

If say = 2 Then
    Image40.Visible = False: Image29.Visible = False: Image38.Visible = False
End If

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

yesimgurol

Ekli dosyalar

Orion1

Uzman

Ekli dosyalar

yesimgurol

Orion1

Uzman

yesimgurol

yesimgurol

Ekli dosyalar

yesimgurol

Orion1

Uzman

yesimgurol

Orion1

Uzman

yesimgurol

Orion1

Uzman

yesimgurol

Orion1

Uzman

yesimgurol

Orion1

Uzman

yesimgurol

Orion1

Uzman

yesimgurol

Orion1

Uzman