userformda sayfa ismi ile resim

[Jezus]

Sayin Leventm rapor olayini yapamadim.
asagidaki gibi denedim yine olmadi zamanin varsa bir bakarsan sevinirim

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

 

[Levent Menteşoğlu]

Bir &#246;nceki sorunuzda sayfa ad&#305;n&#305; "label1" den alm&#305;&#351;t&#305;k, bu sorunuzda da yapman&#305;z gereken sayfa ad&#305;n&#305; alaca&#287;&#305;n&#305;z nesne veya yerin ad&#305;n&#305; kod i&#231;ine ilave etmektir. Bu bir label1 gibi bir nesne olabilece&#287;i gibi sayfa &#252;zerindeki bir h&#252;crede olabilir. Bunu nereden alaca&#287;&#305;n&#305;za siz karar vermelisiniz, &#231;&#252;nk&#252; ben &#231;al&#305;&#351;man&#305;z&#305;n durumunu bilmiyorum.

 

[Jezus]

Hayirli sabahlar,

Bu stock calismasini yaparken sitedeki hazir kodlardan yararlandim ve tabiiki Sayin Leventm hocanin yardimlarida var, isteyen kendine gore uyarlayabilir, iki nokta var belirtmem gereken birincisi dosyanin C:\ de olmasi lazim ikincisi resim dosyasi voorraad in icine kopyalayin su sekilde C:\voorraad\resim rapor problemi var onu beceremedim ne yazikki cunki sayfa sabit degil, bunun disinda gayet iyi calisiyor gulegule kullanin.

 

[Jezus]

Sifreyi yazmayi unutmusum ozur,
Vba sifresi "35030861968"