Satır ve Sayfa Sayısı

[ormann]

Ekli örnek dosya da excel sayfası üzerinde iki adet TextBox.1 ve TextBox.2 var.TextBox.1'e 2.satırdan başlamak üzere kaç tane satırın dolu olduğunu ve TextBox.2'ye ise kaç adet sayfa olduğunu yazdırabilir miyiz?

 

[Milady Meriç]

Selam Dostum;

VBA'da sayfanın kod pencerise aşağıdaki kodu direkt olarak kopyalayıp yapılştır,
Kolay gelsin.

Private Sub Worksheet_Activate()
x = Cells(2, 1).End(xlDown).Row
TextBox1.Value = x
y = Worksheets.Count
TextBox2.Value = y
End Sub

Private Sub Worksheet_Calculate()
x = Cells(2, 1).End(xlDown).Row
TextBox1.Value = x
y = Worksheets.Count
TextBox2.Value = y
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
x = Cells(2, 1).End(xlDown).Row
TextBox1.Value = x
y = Worksheets.Count
TextBox2.Value = y
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = Cells(2, 1).End(xlDown).Row
TextBox1.Value = x
y = Worksheets.Count
TextBox2.Value = y
End Sub

 

[ormann]

Sayın Meriç bey satır sayısını doğru gösteriyor.Fakat dolu sayfa sayısı örnekte 5 olması gerekirken 3 gösteriyor

 

[Milady Meriç]

Selamlar,

dolu sayfa sayısı derken kasıtınız nedir ? Benim size gönderdiğim kod çalışma kitabı içindeki toplam sayfa sayısını verir.
Göndermiş olduğunnuz örnekte , Sayfa1,Sayfa2,Sayfa3 olmak üzere 3 adet sayfa var ve textbox2'de sonuç 3 olarak çıkıyor.

 

[ormann]

Meriç bey örneğin a4 hücresindeki veriyi TextBox.1'e nasıl yazabiliriz ? yani a4=TextBox.1

 

[Milady Meriç]

Selam,

Textbox1.value = Range("A4").value

 

[Merhum İdris SERDAR]

Ekli örnek dosya da excel sayfası üzerinde iki adet TextBox.1 ve TextBox.2 var.TextBox.1'e 2.satırdan başlamak üzere kaç tane satırın dolu olduğunu ve TextBox.2'ye ise kaç adet sayfa olduğunu yazdırabilir miyiz?

.

Dosyanız ekte.

.

 

[ormann]

Çok teşekkür ederim.Ellerinize sağlık.Fakat a4 hücresindeki veriyi TextBox.1'e yazdıramadım.Şu şekilde yaptım ama olmadı.
Private Sub TextBox1_Change()
TextBox1.Value = Range("a4").Value
End Sub

 

[Milady Meriç]

Sayfa Sayısından kastınız, çıktı alındığı zaman kaç sayfa olacağımıydı

a4 hücresini textbox1'e atamak için, mesela aşağıdaki olur

Private Sub Worksheet_Change(ByVal Target As Range)
textbox1.value= range("a4").value
End Sub

 

[Merhum İdris SERDAR]

Sayfa Sayısından kastınız, çıktı alındığı zaman kaç sayfa olacağımıydı

.

Nereden anladınız?

Yukarıda çözüm verdik. Kimse oralı değil.

Anlayamıyorum.:???:

.

 

[Milady Meriç]

.

Nereden anladınız?

Yukarıda çözüm verdik. Kimse oralı değil.

Anlayamıyorum.:???:

.

Yok yuttaş Hocam siz yanlış anladınız

zaten sizin çözümünüzden aladım Başka nereden anlıcam