USERFORM'DAN SAYFA ÜST / ALT BİLGİ GÖNDERMEK

[cocoa35]

Arkadaşlar, ek'teki dosyada userform ile sayfa alt ve üst bilgi girme örneği bulunuyor. Ancak resim aktarma (logo) bölümünü bir türlü çalıştıramadım. Gerçi sayfadan üst bilgiye aktarma makrosu var ama Userform'a alınan resmi üst bilgi 'ye aktarmayı yapamadım. Bu konuda yardımcı olabilecek bir hocamız varmı? teşekkürler.

 

[Korhan Ayhan]

Anladığım kadarıyla resmi Combobox nesnesinden seçerek yüklüyorsunuz. Aynı yolu kullanarak butona tıkladığınızda sol üst bilgiye resmi yükleyebilirsiniz.

Private Sub CommandButton4_Click()
    ActiveSheet.PageSetup.LeftHeaderPicture.Filename = Me.ComboBox1.Text
End Sub

 

[cocoa35]

Korhan hocam çok teşekkürler gayet iyi olmuş

 

[cocoa35]

Korhan hocam merhaba; ilginç bir durum ile karşılaştım şöyleki; ek'te gönderdiğim dosyada sizin verdiğiniz kod'lar gayet güzel çalışıyor, resim üst bilgi sol kolon'a yerleşiyor. Ancak tamamen aynı kod'ları kullandığım ( userform bile aynı) benim esas dosyada resim bir türlü üst bilgiye gelmiyor !! diğer tüm bilgiler geliyor ancak resim yok! Acaba özel bir ayarmı gerekiyor?

 

[Korhan Ayhan]

Asıl dosyanızda bu duruma sebep olacak farklı işlemler olabilir. Bilemiyorum.

 

[cocoa35]

Hocam asıl dosyamdaki kod'lar bunlar;


Private Sub CommandButton2_Click()
ActiveSheet.PageSetup.LeftHeaderPicture.Filename = Me.ComboBox1.Text
customHeader2
Unload Me
End Sub

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim FD As FileDialog
Dim FFs As FileDialogFilters
Dim stFileName As String
Dim vaItem

On Error GoTo Problem

Set FD = Application.FileDialog(msoFileDialogOpen)

With FD
Set FFs = .Filters

With FFs
.Clear
.Add "Pictures", "*.jpg"
End With

.AllowMultiSelect = True

If .Show = False Then Exit Sub

ComboBox1.Clear

For Each vaItem In .SelectedItems
ComboBox1.AddItem vaItem
Next vaItem

ComboBox1.ListIndex = 0

End With

Exit Sub

Problem:
MsgBox "Geçerli bir resim dosyası değil."
End Sub

Private Sub ComboBox1_Change()
Image1.Picture = LoadPicture(ComboBox1.Text)
End Sub
Private Sub CommandButton1_Click()
Sayfa139.Range("A1").Value = UserForm296.TextBox1.Text
Sayfa139.Range("A2").Value = UserForm296.TextBox2.Text
Sayfa139.Range("A3").Value = UserForm296.TextBox3.Text
Sayfa139.Range("A4").Value = UserForm296.TextBox4.Text
End Sub

 

[cocoa35]

Aynısı örnek dosyada var tek fark commandbutton1 sayfa numarası 1 yerine 139 ! , userfom'u zaten copy paste yaptım !

 

[Korhan Ayhan]

Sorunu tespit edebilmek için kullandığınız kodları F8 ile adım adım çalıştırmayı deneyiniz.

 

[cocoa35]

Hocam bu kod'lara yönlendiriyor , normalde çalışıyorlar ama!

Sub customHeader2()
ActiveSheet.PageSetup.CenterHeader = "&""Arial,Bold Italic""&14" & Chr(13) _
& Sayfa139.Range("A2")
ActiveSheet.PageSetup.RightHeader = "&""Arial,Bold Italic""&8" & Chr(13) _
& Sayfa139.Range("A1")
ActiveSheet.PageSetup.RightFooter = "&""Arial,Bold Italic""&7Page &P of &N" & Chr(13) _
& "&""Arial,Bold Italic""&14" & Sayfa139.Range("A5")
ActiveSheet.PageSetup.LeftFooter = "&""Arial,Bold Italic""&14" & Chr(13) _
& Sayfa139.Range("A3")
ActiveSheet.PageSetup.CenterFooter = "&""Arial,Bold Italic""&8" & Chr(13) _
& Sayfa139.Range("A4")

End Sub

 

[Korhan Ayhan]

Bu şekilde yardımcı olmam pek mümkün görünmüyor.

 

[cocoa35]

Ok. Teşekkürler ,

 

[cocoa35]

Hocam alt'taki çalışan yani örnek dosyadaki kod'lar

Sub customHeader2()
ActiveSheet.PageSetup.CenterHeader = "&""Arial,Bold Italic""&14" & Chr(13) _
& Sheets(1).Range("A2")
ActiveSheet.PageSetup.RightHeader = "&""Arial,Bold Italic""&8" & Chr(13) _
& Sheets(1).Range("A1")
ActiveSheet.PageSetup.RightFooter = "&""Arial,Bold Italic""&7Page &P of &N" & Chr(13) _
& "&""Arial,Bold Italic""&14" & Sheets(1).Range("A5")
ActiveSheet.PageSetup.LeftFooter = "&""Arial,Bold Italic""&14" & Chr(13) _
& Sheets(1).Range("A3")
ActiveSheet.PageSetup.CenterFooter = "&""Arial,Bold Italic""&8" & Chr(13) _
& Sheets(1).Range("A4")

End Sub

Bunlar'da benim esas dosyadaki kod'lar ben Sheet (1) yerine Sayfa139 yazdım bu neden ile olabilirmi acaba?

Sub customHeader2()
ActiveSheet.PageSetup.CenterHeader = "&""Arial,Bold Italic""&14" & Chr(13) _
& Sayfa139.Range("A2")
ActiveSheet.PageSetup.RightHeader = "&""Arial,Bold Italic""&8" & Chr(13) _
& Sayfa139.Range("A1")
ActiveSheet.PageSetup.RightFooter = "&""Arial,Bold Italic""&7Page &P of &N" & Chr(13) _
& "&""Arial,Bold Italic""&14" & Sayfa139.Range("A5")
ActiveSheet.PageSetup.LeftFooter = "&""Arial,Bold Italic""&14" & Chr(13) _
& Sayfa139.Range("A3")
ActiveSheet.PageSetup.CenterFooter = "&""Arial,Bold Italic""&8" & Chr(13) _
& Sayfa139.Range("A4")

End Sub

 

[cocoa35]

Örnek 2 dosya yükledim uygun bir zamanınızda bakın lütfen , neden bir dosyada çalışan diğerinde çalışmıyor.!

 

[Korhan Ayhan]

Bu kodu deneyiniz.

Private Sub CommandButton2_Click()
    ActiveSheet.PageSetup.LeftHeaderPicture.Filename = Me.ComboBox1.Text
    ActiveSheet.PageSetup.LeftHeader = "&G"
    customHeader2
    Unload Me
End Sub

 

[cocoa35]

Korhan Hocam Gecenin bu saatinde kafama takılıp uyuyamadığım sorunu çözdüğünüz için binlerce teşekkürler kardeşim.. Gayet güzel oldu şimdi çok çok teşekkürler bir kez daha...