userformda sayfa ismi ile resim

[Jezus]

Selamlar,
Herkesin bayramini kutlar hayirlara vesile olmasini dilerim

Site arsivinde aradim fakat istedigim ornek veya aciklamayi bulamadim,
sectigim sayfa ile o sayfaya ait resim hazirladigim userformda gorulsun istedim
buldugum ornekler ise secenekli onu yapabiliyorum fakat amac bu degil

umarim yeterince anlatabilmisimdir, ilgilenenlere simdiden tesekkur ederim

 

[hamitcan]

Örnek bir dosya ekleyin.

 

[Jezus]

Ilgilenen arkadaslara,
Ornek ektedir

 

[Jezus]

Bu konuda Bir fikri olan varmi ..?

 

[Jezus]

Zamani olan varmi arkadaslar,,, yoksa sordugum imkansizmi..?

 

[Jezus]

Bir fikri olan yokmu arkadaslar...?

 

[Skorpiyon]

Sayın Jezus,

Excel sayfası üzerine eklediğiniz resimleri C sürücünde Resimler diye bir klasör açarak içine atınız. Ve her resmi kendi ismi ile kaydediniz. Yani Cpufan sayfanız var, resmin ismi de Cpufan.bmp olsun. Formatı .jpg yaparsanız koddaki son satırı da .jpg olarak düzeltmeniz gerekir.

Bu işlemden sonra,
dosyanızdaki 2. formun Aktivasyon kodlarına aşağıda kırmızı ile belirten satırı ekleyiniz.

Private Sub UserForm_Activate()
AddIcon
AddMinimiseButton
AppTasklist Me
DisableCloseButton
Image1.Picture = LoadPicture("C:\Resimler\Cpufan.bmp")
End Sub

Saygılarımla...

 

[Jezus]

Sayin Sertkaya,

Cevabiniz icin tesekkur ederim, dediginizi yaptim oldu fakat,,,, cpufan, nin disinda bir sayfa sectigimde ornek "Optical drive" cpufan resmi image icinde duruyor yani dogru sayfa yanlis resim bu problemi cozebilirmiyiz..?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub UserForm_Activate()
AddIcon
AddMinimiseButton
AppTasklist Me
DisableCloseButton
[COLOR=red][B]Image1.Picture = LoadPicture("C:\Resimler\[COLOR=red]" & Label1 & ".bmp")[/COLOR][/B][/COLOR]
End Sub

 

[Jezus]

Levent hocam merhabalar,

Uzun zamandir selamlasamiyorduk nasilsiniz Huseyin hocam nasillar lutfen selamimi iletin. bu arada gecmis bayraminizi kutlarim.

Evet hocam cozum harika tesekkur ederim, birde ayni "Part number" ile kayit yapmasini nasil onlerim sayfa sabit olmadigi icin yapamadim ve sitedede bulamadim bu arada bir cok arsiv sayfalar acilmiyor veya dosyasi kayip, sanirim bundan haberiniz vardir.

Hocam bu yapmaya calistigim stock programini HP nin Hollanda ana bayii si icin yapiyorum, sayenizde bitirince insallah excel.web.tr nin arsivinde guzel bir stok calismasi olarak yerini alacak

 

[Levent Menteşoğlu]

Merhaba

Teşekkür ederim iyiyim. Selamınızı iletirim. Sizinde bayramınız kutlu olsun. Sorunuza gelince kaydet butonuna ilk satırlar olarak aşağıdaki kodları ilave edin.

If WorksheetFunction.CountIf(Sheets("" & Label1).[a:a], TextBox1) > 0 Then
MsgBox "Bu Numara Önceden Kayıtlıdır", 48, "UYARI !"
TextBox1.SetFocus
Exit Sub
End If

Arşiv dosyalar, forum yazılımının değiştirilmesi sırasında kaybolmuştur. Ben soruldukça bulup tamamlamaya çalışıyorum.

 

[Skorpiyon]

Sayın Jezus,

Evet, sayfa değiştiğinde resmin değişmesi ile ilgili sorunu maalesef atlamışım. Misafirim geldiği için de hemen yardımcı olamadım.

Sayın leventm hocam yardımcı olmuşlar.

Bizim yardımcı olabileceğimiz (bilgimiz dahilinde) başka konular olursa her zaman.

Saygılarımla...

 

[Jezus]

Selamlar hocam,

Verdiginiz kodu aynen kopyaladim hata verdi. alttaki resme bakarsaniz daha kolay anlasilir sanirim.

Zaman ayirdigin icin ayrica tesekkur ederim

 

[Jezus]

Selamlar hocam,

Verdiginiz kodu aynen kopyaladim hata verdi.

ekranin resmini kopyalamistim nedense gitmedi; neyse hatayi asagidaki bolumde verdi hocam


If WorksheetFunction.CountIf(Sheets(Label1).[a:a], TextBox1) > 0 Then

 

[Jezus]

Sayin sertkaya

Evet zaten problem oydu yani sabit kalmasiydi, yinede ilginiz ve gayretiniz icin tesekkur ederim.

 

[Levent Menteşoğlu]

Yukarıdaki kodu yeniledim tekrar deneyin.

 

[Jezus]

Sayin Leventm

Cok tesekkur ederim harika oldu kalan detaylarida bitirince excel.web.tr nin olacak hocam.

 

[Jezus]

Sabit olmayan sayfa icin iki tarih arasi rapor

Selamlar,
Iki tarih arasi rapor alacam fakat, sayfa sabit degil noktali yerlere ne yazmam gerekiyor ...?

Private Sub Rapor_Click()
Sheets("rapor3").Select
Sheets("rapor3").Range("A3:F65536").ClearContents
bastar = TextBox1.Value
bittar = TextBox2.Value
c = 0
For tarih = 2 To Sheets("...........").Cells(65536, 2).End(xlUp).Row
aratar = Sheets("...........").Cells(tarih, 2).Value
If aratar >= bastar And aratar <= bittar Then
c = c + 1
For sut = 1 To 11
Sheets("rapor3").Cells(c + 2, sut) = Sheets("...........").Cells(tarih, sut).Value
Next sut
End If
Next tarih
Rapor.Hide
Worksheets("rapor3").PrintPreview
Worksheets("rapor3").PageSetup.PrintArea = ""
Rapor.Show
End Sub

 

[Levent Menteşoğlu]

Yukar&#305;da verdi&#287;im gibi bir mant&#305;k kullanmal&#305;s&#305;n&#305;z, burada &#246;nemli olan sayfa ad&#305;n&#305;n nereden al&#305;naca&#287;&#305;d&#305;r.

 

[Jezus]

Herkese gunaydin,

bu sekildemi olacak hocam..?

Sheets("raport").Select
Sheets("raport").Range("A7:O65536").ClearContents
bastar = TextBox1.Value
bittar = TextBox2.Value
c = 0
For tarih = 2 To Sheets("" & Label1).Cells(65536, 2).End(xlUp).Row
aratar = Sheets("" & Label1).Cells(tarih, 2).Value
Range("O2").Select
If aratar >= bastar And aratar <= bittar Then
c = c + 1
For sut = 1 To 11
Sheets("raport").Cells(c + 2, sut) = Sheets("" & Label1).Cells(tarih, sut).Value
Next sut
End If
Next tarih
Rapport.Hide
Worksheets("raport").PrintPreview
Worksheets("raport").PageSetup.PrintArea = ""
Rapport.Show
End Sub