Sayfa yapısı - Üst boşluk ayarı

[Erhan Üstünel]

Merhabalar,

Excell sayfasında, örneğin C4 hücresine yazacağım değer ile birlikte
Yazdırma ekranında sayfa yapısı kenar boşluklarında üst boşluk değerini değiştirebilirmiyiz.

örnekde açıklama mevcut,

yardımlarınız için teşekkürler

 

[halit3]

Merhabalar,

Excell sayfasında, örneğin C4 hücresine yazacağım değer ile birlikte
Yazdırma ekranında sayfa yapısı kenar boşluklarında üst boşluk değerini değiştirebilirmiyiz.

örnekde açıklama mevcut,

yardımlarınız için teşekkürler

bunları denermisiniz

Private Sub CommandButton1_Click()
sat = TextBox2.Text / 2.55
ActiveSheet.PageSetup.TopMargin = Application.InchesToPoints(sat)
End Sub
 
Sub sayfayapısı()
sat = Sheets("Sayfa1").Cells(4, "c").Value / 2.55
ActiveSheet.PageSetup.TopMargin = Application.InchesToPoints(sat)
End Sub

 

[Erhan Üstünel]

bunları denermisiniz

Private Sub CommandButton1_Click()
sat = TextBox2.Text / 2.55
ActiveSheet.PageSetup.TopMargin = Application.InchesToPoints(sat)
End Sub
 
Sub sayfayapısı()
sat = Sheets("Sayfa1").Cells(4, "c").Value / 2.55
ActiveSheet.PageSetup.TopMargin = Application.InchesToPoints(sat)
End Sub

hocam denedim istediğim gibi oluyor, çok teşekkür ederim

 

[halit3]

hocam denedim istediğim gibi oluyor, çok teşekkür ederim

iyi çalışmalar

 

[Erhan Üstünel]

hocam user form sayfa 1 de olsa ama ben ayarlamak istediğim üst boşluk sayfası sayfa 2 olsa formülde nasıl bir değişiklik yapmak gerekekir.

 

[Erhan Üstünel]

Private Sub CommandButton1_Click()
sat = TextBox2.Text / 2.55 ' sayfa üst boşluğu
Sheets("yeni").PageSetup.TopMargin = Application.InchesToPoints(sat)
End Sub
 
Sub sayfayapısı()
sat = Sheets("yeni").Cells(4, "c").Value / 2.55 ' sayfa üst boşluğu
Sheets("yeni").PageSetup.TopMargin = Application.InchesToPoints(sat)
End Sub

bu kodla bir nebze sorun çözüldü fakat bazen excel kapanıyo sonrada kurtarmaya çalışıyor falan bi yerde noksanlıkmı var acaba..

halit hocam gitmiş , yardımcı olucak varmı acaba

 

[Erhan Üstünel]

neyse şimdilik bi çözüm buldum

 

[halit3]

Siz kendiniz bir çözüm bulmuşunuz.

İYİ ÇALIŞMALAR