çizilmiş yayı mevcut duruma uyarlamak

[GursoyC]

Merhaba,
ekli örnek excel dosyamda yapmak istediğim, çizilmiş bir yayın üst noktasının yerini değiştirmek.
düğmeye bastığımızda yayın alt noktası sabit kalacak. üst nokta dolu en son hücrenin altına gelecek.
anlatması gerçekten zor. örnek dosya içerisinde basitçe açıkladım.

yardım ederseniz çok sevinirim.

 

[Haluk]

Merhaba;

Yayın alt noktasını sabit tutamadık.

Komple en son dolu hücrenin altına taşınmasını isterseniz eğer;

Sub Test()
    NoH = Cells(Rows.Count, 8).End(xlUp).Row + 1
    ActiveSheet.Shapes("Serbest Form 4").Left = Range("G" & NoH).Left
    ActiveSheet.Shapes("Serbest Form 4").Top = Range("G" & NoH).Top
End Sub

.

 

[GursoyC]

Haluk bey merhaba.
Yayın alt noktası sabit kalmalı. Yine de ilginize çok teşekkürler.

 

[Haluk]

Merhaba;

Yayın alt noktası sabit kalırsa, şekil değişecektir. Bunu biliyorsunuzdur herhalde.

Gerçek anlamda yapmak istediğinizin ne olduğunu bilsek belki farklı çözümler geliştirilebilir.

Neyse, daha iyi bir çözüm gelebilir.

.

.

 

[GursoyC]

Evet makro kaydederek baktım, formun şekli değişiyor. Aslında çözüm ScaleHeight mevzusunda ama işin içinden çıkamadım.
Yapmak istediğim aslında şu. Bilirsiniz, faturalarda dolu olan kısmın altına bir çizgi çekilir. Elle bir şey eklenemesin diye. Bu çizgi onu ifade ediyor.
Kesilen faturanın içeriği satır sayısı anlamında değiştiği için, "yazdır" komutundan önce bu çizgiyi mevcut faturaya göre değiştirmeye yarayacak bir komut arıyorum.
Dolayısıyla alt noktanın sabit kalması gerekliliği bundan...

 

[Haluk]

Evet, amacınızın bu olduğunu tahmin etmiştim.

Buna yönelik bir çalışma yapılabilir.

.

 

[xydoca]

Merhaba,

Öncelikle şekil 1 i biraz değiştirdim. Çünkü şeklin açılı olması yüksekliği değiştiğinde problem teşkil ediyor. Daha sonra Haluk Bey'in kodlarına ufak bir ekleme yaptım.

Private Sub CommandButton1_Click()

    NoH = Cells(Rows.Count, 8).End(xlUp).Row + 1

    ActiveSheet.Shapes("Serbest Form 4").Left = Range("G" & NoH).Left
    ActiveSheet.Shapes("Serbest Form 4").Top = Range("G" & NoH).Top
    ActiveSheet.Shapes("Serbest Form 4").Height = Range(Cells(22, 8), Cells(NoH, 8)).Height
    
    
End Sub

Güncel dosya: http://s6.dosya.tc/server11/h2t212/sekil1.rar.html

 

[GursoyC]

Çok teşekkür ederim. Gayet güzel çalışıyor.