9 image 54 Label Resim Fırtınası Büyük Problem...

H

Hikmet26

Katılım
29 Nisan 2007
Mesajlar
67
Excel Vers. ve Dili
Türkçe 2003
Merhaba arkadaşlar sanırım çok kolay olmayan bi problemim var.

Ekte gönderdiğim dosya da bir userform var ve bu userform üzerinde 9 tane image var Sayfa1 de J stununda adresleri bulunan resimlerin bu imagelerde gösterilmesi.

Yine form üzerinde bulunan Sonraki butonuna basıldığında sonraki 9 resmin gösterilmesi ve Önceki butonuna basıldığında önceki 9 resmin gösterilmesi. Yazdır tuşuna basıldığında o anda form üzerinde bulunan 9 resmin sayfa 2 ye aktarılarak çıkış alınması.

Not: Resimlerle birlikte Label başlıklarınında hangi resimse o resme göre değişmesi gerekiyor. Sayfa 2 ye aktarılan resimlerin fazla yer tutmaması açısından dosya kapanırken silinmesi gerekiyor.

Arkadaşlar uğraştıracak bir sual olduğunu biliyorum ve inanın çok ihtiyacım var ilgilenen arkadaşlara şimdiden Teşekkürü bir borç bilirim. Saygılarımla iyi çalışmalar.
 
H

Hikmet26

Katılım
29 Nisan 2007
Mesajlar
67
Excel Vers. ve Dili
Türkçe 2003
Arkadaşlar nasıl bir problemdir bu halledemiyorum. Lütfen hangi yolu izlemem hususunda yardım edin. Yardımlarınız için şimdiden Teşekkür ederim. Nasıl yapacağım hususunda bilgi verirseniz ben bu yetersiz bilgimle uğraşır yapmaya çalışırım ama en ufak bir fikrim bile yok. Saygılarımla...
 
L

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Ekli dosyayı inceleyin. Resimlerin gelip gelmediğini test etme şansım olmadı.
 
H

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,734
Excel Vers. ve Dili
Excel 2019 Türkçe
Ben de bir örnek hazırlamışdım. Açıkcası benim de, fazla kontrol etme fırsatım olmadı.
 
Son düzenleme:
H

Hikmet26

Katılım
29 Nisan 2007
Mesajlar
67
Excel Vers. ve Dili
Türkçe 2003
Saygıdeğer üstadlarım ilgi alakanıza candan teşekkür ederim.

Yollamış olduğunuz dosyaları inceledim. Yanlızca Sayın Levent üstadımın dosyası çalışmakta. Fakat kendisinin de belirttiği gibi resimlere bakamamış label captionları sonraki tuşuna basıldığında değişiyor. Ama resimler ilk başta geldiği halde sonraki tuşuna basıldığında değişmiyor.

Yazdır tuşuna basıldığında ise Sayfa2 de hiçbir görüntü yok.

Ben bütün resimleri zip arşivine koydum. tek tek dosya adreslerini de girdim. Resimlerin kontrolü için yanlızca Zip arşivinde bulunan "Resim Form" klasörünü bilgisayarınızın C:\Belgelerim klasörüne koymanız yeterli olacaktır. Siteye bi türlü ekleyemedim o sebeple aşağıdaki linke koydum...

http://rapidshare.com/files/42594819/Resim_Form.rar

Üstadlarım bi gözden geçirirseniz çok minnettar olurum. Saygılarımla...
 
H

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,734
Excel Vers. ve Dili
Excel 2019 Türkçe
Sayın Hikmet26, dosyanın yolu konusunda bir hata vardı düzelttim. Tekrar inceleyin.
 
H

Hikmet26

Katılım
29 Nisan 2007
Mesajlar
67
Excel Vers. ve Dili
Türkçe 2003
Sn. hamitcan Run Time Error "53" File Not Found hatası veriyor hiç açılmıyor..
 
H

Hikmet26

Katılım
29 Nisan 2007
Mesajlar
67
Excel Vers. ve Dili
Türkçe 2003
Sn. Hamitcan 2007 versiyonundan olmasın sizde 2007 varmış bende 2003 var...?
 
H

Hikmet26

Katılım
29 Nisan 2007
Mesajlar
67
Excel Vers. ve Dili
Türkçe 2003
Sayın hamitcan sanırım söylediğiniz gibi çıktı dosyaların yerlerinde sorun varmış. Çalışıyor Çok teşekkür ederim. Yanlız bi sorun var ileri giderken sorun yokta son resimlerden geri gelirken bi sorun var. geri gelirken son önceki butonuna bastığımızda resimleri göstermiyor taaaki en baştaki resimlere gelene kadar... Saygılarımla...
 
Son düzenleme:
H

Hikmet26

Katılım
29 Nisan 2007
Mesajlar
67
Excel Vers. ve Dili
Türkçe 2003
Sevgili Hamitcan kardeşim son olarak ben şöyle bir formül geliştirdim numaralardan resimler yaptım ve bunları ekte yolladım adreslerini de yazdım D:\Desen Takip\Alınan Dosyalarım içerisine atılırsa yanlışlığın nerede olduğu görülecektir. Her bir numara her bir imageye denk geliyor ileri giderken sorun yok fakat geri gelirken bir sorun çıkıyor. Yardımların için Allah senden razı olsun.
 
H

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,734
Excel Vers. ve Dili
Excel 2019 Türkçe
Önceki kodları silip aşağıdaki kodları ekleyin.

Kod: 
Dim i, k, s
Private Sub CommandButton1_Click()
CommandButton2.Enabled = True

If k + 9 = s Then CommandButton1.Enabled = False
j = 1
For i = 1 To 9
k = k + 1

'MsgBox Cells(k + 10, "j").Address
 Controls("image" & i).Picture = LoadPicture(Cells(k + 10, "j"))
 Controls("label" & j) = Cells(k + 10, "b")
 Controls("label" & j + 1) = Cells(k + 10, "e")
 Controls("label" & j + 2) = Cells(k + 10, "g")
 Controls("label" & j + 3) = Cells(k + 10, "f")
 Controls("label" & j + 4) = Cells(k + 10, "d")
 Controls("label" & j + 5) = Cells(k + 10, "c")
 j = j + 6
Next
End Sub

Private Sub CommandButton2_Click()
CommandButton1.Enabled = True
If k = 9 Then CommandButton2.Enabled = False
j = 49
For i = 9 To 1 Step -1
k = k - 1
 Controls("image" & i).Picture = LoadPicture(Cells(k + 2, "j"))
 Controls("label" & j) = Cells(k + 2, "b")
 Controls("label" & j + 1) = Cells(k + 2, "e")
 Controls("label" & j + 2) = Cells(k + 2, "g")
 Controls("label" & j + 3) = Cells(k + 2, "f")
 Controls("label" & j + 4) = Cells(k + 2, "d")
 Controls("label" & j + 5) = Cells(k + 2, "c")
 
 j = j - 6
Next
End Sub

Private Sub CommandButton4_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
s = [j65536].End(3).Row - 10
j = 1
For i = 1 To 9
 Controls("image" & i).Picture = LoadPicture(Cells(i + 1, "j"))
 Controls("label" & j) = Cells(i + 1, "b")
 Controls("label" & j + 1) = Cells(i + 1, "e")
 Controls("label" & j + 2) = Cells(i + 1, "g")
 Controls("label" & j + 3) = Cells(i + 1, "f")
 Controls("label" & j + 4) = Cells(i + 1, "d")
 Controls("label" & j + 5) = Cells(i + 1, "c")
 j = j + 6
Next
If i = 10 Then CommandButton2.Enabled = False
End Sub
 
H

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,734
Excel Vers. ve Dili
Excel 2019 Türkçe
Gönderdiğiniz özel mesaja istinaden, eski kodlarda biraz değişiklikler yaptım. Vereceğim kodları eskileriyle değiştirin.
Not : Form üzerine "TextBox1" adıyla bir TextBox ekleyin. Buraya yazdığınız sayı, sizin, o sıradaki resimden başlamanızı sağlayacak. Yalnız fazla kontrol etme fırsatım olmadı. Yanlışlık varsa devam ederiz.

Kod: 
Dim i, k, s
Dim Sh As Object
Private Sub CommandButton1_Click()
CommandButton2.Enabled = True
If Not IsEmpty(TextBox1.Value) Then k = TextBox1.Value: TextBox1.Value = k + 9
If k + 9 = s Then CommandButton1.Enabled = False
j = 1
For i = 1 To 9
k = k + 1
 Controls("image" & i).Picture = LoadPicture(Cells(k, "j"))
 Controls("label" & j) = Cells(k, "b")
 Controls("label" & j + 1) = Cells(k, "e")
 Controls("label" & j + 2) = Cells(k, "g")
 Controls("label" & j + 3) = Cells(k, "f")
 Controls("label" & j + 4) = Cells(k, "d")
 Controls("label" & j + 5) = Cells(k, "c")
 j = j + 6
Next
resimler
End Sub

Private Sub CommandButton2_Click()
CommandButton1.Enabled = True
If TextBox1.Value < 9 Then Exit Sub
If Not IsEmpty(TextBox1.Value) Then k = TextBox1.Value: TextBox1.Value = IIf(k - 9 < 0, "", k - 9)
If k = 9 Then CommandButton2.Enabled = False
j = 49
For i = 9 To 1 Step -1
k = k - 1
 Controls("image" & i).Picture = LoadPicture(Cells(k + 2, "j"))
 Controls("label" & j) = Cells(k + 2, "b")
 Controls("label" & j + 1) = Cells(k + 2, "e")
 Controls("label" & j + 2) = Cells(k + 2, "g")
 Controls("label" & j + 3) = Cells(k + 2, "f")
 Controls("label" & j + 4) = Cells(k + 2, "d")
 Controls("label" & j + 5) = Cells(k + 2, "c")
 
 j = j - 6
Next
resimler
End Sub
Sub resimler()
Sh.Image1.Picture = Me.Image1.Picture
Sh.Image2.Picture = Me.Image2.Picture
Sh.Image3.Picture = Me.Image3.Picture
Sh.Image4.Picture = Me.Image4.Picture
Sh.Image5.Picture = Me.Image5.Picture
Sh.Image6.Picture = Me.Image6.Picture
Sh.Image7.Picture = Me.Image7.Picture
Sh.Image8.Picture = Me.Image8.Picture
Sh.Image9.Picture = Me.Image9.Picture

For i = 1 To 6
    Sh.Cells(i + 11, "e") = Controls("label" & i)
    Sh.Cells(i + 11, "n") = Controls("label" & i + 6)
    Sh.Cells(i + 11, "w") = Controls("label" & i + 12)
    
    Sh.Cells(i + 33, "e") = Controls("label" & i + 18)
    Sh.Cells(i + 33, "n") = Controls("label" & i + 25)
    Sh.Cells(i + 33, "w") = Controls("label" & i + 31)

    Sh.Cells(i + 55, "e") = Controls("label" & i + 36)
    Sh.Cells(i + 55, "n") = Controls("label" & i + 42)
    Sh.Cells(i + 55, "w") = Controls("label" & i + 48)
Next
End Sub

Private Sub CommandButton4_Click()
Unload Me
End Sub

Private Sub CommandButton5_Click()
resimler
Unload Me
Sheets("sayfa2").PrintOut
End Sub

Private Sub UserForm_Initialize()
Set Sh = Sheets("Sayfa2")
s = [j65536].End(3).Row - 10
j = 1
i = IIf(IsEmpty(TextBox1.Value), 1, TextBox1.Value)
For i = 1 To 9
 Controls("image" & i).Picture = LoadPicture(Cells(i + 1, "j"))
 Controls("label" & j) = Cells(i + 1, "b")
 Controls("label" & j + 1) = Cells(i + 1, "e")
 Controls("label" & j + 2) = Cells(i + 1, "g")
 Controls("label" & j + 3) = Cells(i + 1, "f")
 Controls("label" & j + 4) = Cells(i + 1, "d")
 Controls("label" & j + 5) = Cells(i + 1, "c")
 j = j + 6
Next
resimler
If i = 10 Then CommandButton2.Enabled = False
End Sub
 
Son düzenleme:
H

Hikmet26

Katılım
29 Nisan 2007
Mesajlar
67
Excel Vers. ve Dili
Türkçe 2003
Hamitcan Karde&#351;im: Beni yine mah&#231;up ediyorsun tekrar ilgilendi&#287;in i&#231;in te&#351;ekk&#252;rler. &#304;lk olarak soruyu yinelemek istiyorum ki di&#287;er kullan&#305;c&#305;larda bu sorudan faydalanabilsin. ikinci olarakta bi tak&#305;m eksiklikler var onlar&#305; yazaca&#287;&#305;m.

1- Soru: Resimleri tek tek g&#246;steriyor &#231;ok g&#252;zel i&#351;liyor fakat bizim ar&#351;ivimiz o kadar b&#252;y&#252;d&#252; ki &#246;rne&#287;in 120. sat&#305;r ve sonraki resimleri g&#246;rmemiz i&#231;in 50 den fazla sonraki tu&#351;una t&#305;kl&#305;yoruz ki istedi&#287;imiz resimleri g&#246;relim.

2- Problem: Textbox'a de&#287;er girip sonraki tu&#351;una bas&#305;ld&#305;&#287;&#305;nda istenilen sat&#305;ra gidiyor ve s&#305;ras&#305;yla resimleri diziyor fakat bu i&#351;lemden hemen sonra tekrardan sonraki tu&#351;una bas&#305;l&#305;rsa hata veriyor. &#304;&#351;lemi illaki &#246;nce Textbox1 e de&#287;er girerek yapmam&#305;z gerekiyor. Bunu &#231;&#246;zebilir miyiz?

Tekrar Te&#351;ekk&#252;r ederim.
 
H

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,734
Excel Vers. ve Dili
Excel 2019 Türkçe
Kodu g&#252;ncelledim.Bir daha bakar m&#305;s&#305;n&#305;z?
 
H

Hikmet26

Katılım
29 Nisan 2007
Mesajlar
67
Excel Vers. ve Dili
Türkçe 2003
Bu seferde &#351;&#246;yle bir sorun var.
E&#287;er textbox'a hi&#231; de&#287;er girilmeden butonlara bas&#305;l&#305;rsa hata veriyor. ya da &#246;nce textbox'a de&#287;er giriliyor &#246;rne&#287;in 35 o sat&#305;ra gidiyor daha sonra textbox taki de&#287;er silinip bas&#305;l&#305;rsa yine hata veriyor...

Tam olarak &#351;&#246;yle olsa daha iyi olur textboxa yanl&#305;zca istenildi&#287;i zaman ba&#351;vurulmal&#305; di&#287;er zamanlarda normal olarak &#231;al&#305;&#351;mal&#305; kodlar. &#246;nceki gibi... Textbox'&#305;n bo&#351; olup olmamas&#305; etkilememeli... Te&#351;ekk&#252;rler...
 
Son düzenleme:
H

Hikmet26

Katılım
29 Nisan 2007
Mesajlar
67
Excel Vers. ve Dili
Türkçe 2003
Ayr&#305;ca e&#287;er commandbuttonlar&#305;n deaktif olmas&#305; konusu problem &#231;&#305;kart&#305;yorsa bunlara gerek yok. olmasada olur bas&#305;ld&#305;&#287;&#305;nda &#231;al&#305;&#351;mas&#305;n bu sorun te&#351;kil etmez. &#246;nemli olan ilk a&#231;&#305;l&#305;&#351;ta ileri tu&#351;unun, ileri tu&#351;una bas&#305;ld&#305;&#287;&#305;nda geri tu&#351;unun, textboxa de&#287;er girildi&#287;inde ikisinin birden ya da ba&#351;ka ek bi butonun &#231;al&#305;&#351;mas&#305;. Ayr&#305;ca daha rahat &#231;al&#305;&#351;ma i&#231;in formu k&#252;&#231;&#252;ltt&#252;m... birde resimler m stununa ta&#351;&#305;nd&#305;. ben kodu ona g&#246;re d&#252;zelttim... Sayg&#305;lar Te&#351;ekk&#252;rler
 
H

Hikmet26

Katılım
29 Nisan 2007
Mesajlar
67
Excel Vers. ve Dili
Türkçe 2003
Formun küçültülmüş hali ve resimlerin m sutununa taşındığı dosya ektedir
 
H

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,734
Excel Vers. ve Dili
Excel 2019 Türkçe
Kodları aşağıdaki şekilde değiştirdim. Yalnız ben eski kodlara göre düzenledim. Siz resimlerin bulunduğu adresleri, kendinize göre düzenleyin.
Kod: 
Dim i, k, s
Dim Sh As Object
Private Sub CommandButton1_Click()
CommandButton2.Enabled = True
If Not IsEmpty(TextBox1.Value) Then k = TextBox1.Value: TextBox1.Value = k + 9: TextBox1.ForeColor = vbWhite
If k + 9 = s Then CommandButton1.Enabled = False
j = 1
For i = 1 To 9
k = k + 1
 Controls("image" & i).Picture = LoadPicture(Cells(k, "j"))
 Controls("label" & j) = Cells(k, "b")
 Controls("label" & j + 1) = Cells(k, "e")
 Controls("label" & j + 2) = Cells(k, "g")
 Controls("label" & j + 3) = Cells(k, "f")
 Controls("label" & j + 4) = Cells(k, "d")
 Controls("label" & j + 5) = Cells(k, "c")
 j = j + 6
Next
resimler
End Sub

Private Sub CommandButton2_Click()
CommandButton1.Enabled = True
If TextBox1.Value < 9 Then Exit Sub
If Not IsEmpty(TextBox1.Value) Then k = TextBox1.Value: TextBox1.Value = IIf(k - 9 < 0, "", k - 9): TextBox1.ForeColor = vbWhite
If k = 9 Then CommandButton2.Enabled = False
j = 49
For i = 9 To 1 Step -1
k = k - 1
 Controls("image" & i).Picture = LoadPicture(Cells(k + 2, "j"))
 Controls("label" & j) = Cells(k + 2, "b")
 Controls("label" & j + 1) = Cells(k + 2, "e")
 Controls("label" & j + 2) = Cells(k + 2, "g")
 Controls("label" & j + 3) = Cells(k + 2, "f")
 Controls("label" & j + 4) = Cells(k + 2, "d")
 Controls("label" & j + 5) = Cells(k + 2, "c")
 
 j = j - 6
Next
resimler
End Sub
Sub resimler()
Sh.Image1.Picture = Me.Image1.Picture
Sh.Image2.Picture = Me.Image2.Picture
Sh.Image3.Picture = Me.Image3.Picture
Sh.Image4.Picture = Me.Image4.Picture
Sh.Image5.Picture = Me.Image5.Picture
Sh.Image6.Picture = Me.Image6.Picture
Sh.Image7.Picture = Me.Image7.Picture
Sh.Image8.Picture = Me.Image8.Picture
Sh.Image9.Picture = Me.Image9.Picture

For i = 1 To 6
    Sh.Cells(i + 11, "e") = Controls("label" & i)
    Sh.Cells(i + 11, "n") = Controls("label" & i + 6)
    Sh.Cells(i + 11, "w") = Controls("label" & i + 12)
    
    Sh.Cells(i + 33, "e") = Controls("label" & i + 18)
    Sh.Cells(i + 33, "n") = Controls("label" & i + 25)
    Sh.Cells(i + 33, "w") = Controls("label" & i + 31)

    Sh.Cells(i + 55, "e") = Controls("label" & i + 36)
    Sh.Cells(i + 55, "n") = Controls("label" & i + 42)
    Sh.Cells(i + 55, "w") = Controls("label" & i + 48)
Next
End Sub

Private Sub CommandButton4_Click()
Unload Me
End Sub

Private Sub CommandButton5_Click()
resimler
Unload Me
Sheets("sayfa2").PrintOut
End Sub

Private Sub TextBox1_Enter()
TextBox1.ForeColor = vbBlack
End Sub

Private Sub UserForm_Initialize()
Set Sh = Sheets("Sayfa2")
s = [j65536].End(3).Row - 10
j = 1
i = IIf(IsEmpty(TextBox1.Value), 1, TextBox1.Value)
For i = 1 To 9
 Controls("image" & i).Picture = LoadPicture(Cells(i + 1, "j"))
 Controls("label" & j) = Cells(i + 1, "b")
 Controls("label" & j + 1) = Cells(i + 1, "e")
 Controls("label" & j + 2) = Cells(i + 1, "g")
 Controls("label" & j + 3) = Cells(i + 1, "f")
 Controls("label" & j + 4) = Cells(i + 1, "d")
 Controls("label" & j + 5) = Cells(i + 1, "c")
 j = j + 6
Next
resimler
If i = 10 Then CommandButton2.Enabled = False
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst