Makroda dolu satır sayısı belirlemek?

[skyhero34]

Merhaba,,

Elimde şu şekilde bir makro var. Burada "Toplam Satir=9" yazan yerdeki 9 rakamı A stünündaki dolu hücre sayısını ifade ediyor. Bu sayıyı her defasında elle değiştirmem gerekiyor. Excel'in bunu otomatik olarak sayabilmesi için makroya ekleyeceğimiz bir komut satırı varmıdır?

Sub Makro1()
DigerSatir = 1
  ToplamSatir = 9
  Sayfa2.Cells(DigerSatir, 1).Value = Sayfa1.Cells(1, 1).Value
  Sayfa2.Cells(DigerSatir, 2).Value = Sayfa1.Cells(1, 2).Value
  For Satir = 2 To ToplamSatir
    If Sayfa1.Cells(Satir, 1).Value = Sayfa1.Cells(Satir - 1, 1).Value Then
      Sayfa2.Cells(DigerSatir, 2).Value = Sayfa2.Cells(DigerSatir, 2).Value & ", " & Sayfa1.Cells(Satir, 2).Value
    Else
      DigerSatir = DigerSatir + 1
      Sayfa2.Cells(DigerSatir, 1).Value = Sayfa1.Cells(Satir, 1).Value
      Sayfa2.Cells(DigerSatir, 2).Value = Sayfa1.Cells(Satir, 2).Value
    End If
  Next
End Sub

Şimdiden teşekkürler..

 

[numan şamil]

Merhaba,,

Elimde şu şekilde bir makro var. Burada "Toplam Satir=9" yazan yerdeki 9 rakamı A stünündaki dolu hücre sayısını ifade ediyor. Bu sayıyı her defasında elle değiştirmem gerekiyor. Excel'in bunu otomatik olarak sayabilmesi için makroya ekleyeceğimiz bir komut satırı varmıdır?

Sub Makro1()
DigerSatir = 1
  ToplamSatir = 9
  Sayfa2.Cells(DigerSatir, 1).Value = Sayfa1.Cells(1, 1).Value
  Sayfa2.Cells(DigerSatir, 2).Value = Sayfa1.Cells(1, 2).Value
  For Satir = 2 To ToplamSatir
    If Sayfa1.Cells(Satir, 1).Value = Sayfa1.Cells(Satir - 1, 1).Value Then
      Sayfa2.Cells(DigerSatir, 2).Value = Sayfa2.Cells(DigerSatir, 2).Value & ", " & Sayfa1.Cells(Satir, 2).Value
    Else
      DigerSatir = DigerSatir + 1
      Sayfa2.Cells(DigerSatir, 1).Value = Sayfa1.Cells(Satir, 1).Value
      Sayfa2.Cells(DigerSatir, 2).Value = Sayfa1.Cells(Satir, 2).Value
    End If
  Next
End Sub

Şimdiden teşekkürler..

Merhaba
Kodun ilgili yerini şu şekilde değiştirip denermisiniz

ToplamSatir = [a65536].End(3).Row

 

[skyhero34]

Teşekkürler.. Bu şekilde yapınca işe yaradı fakat 65.000 satırdan fazla olan excellerde komut çalışmıyor. onun için nasıl bi değişiklik yapmak gerekir?

 

[uzmanamele]

Teşekkürler.. Bu şekilde yapınca işe yaradı fakat 65.000 satırdan fazla olan excellerde komut çalışmıyor. onun için nasıl bi değişiklik yapmak gerekir?

Merhaba

Bu şekilde deneyiniz.

Sub sonsat()
srm = Application.Version
If srm < 12 Then
ss1 = Range("a65536").End(3).Row
Else:
ss1 = Range("a1048576").End(3).Row
End If
MsgBox ss1
End Sub

 

[numan şamil]

Teşekkürler.. Bu şekilde yapınca işe yaradı fakat 65.000 satırdan fazla olan excellerde komut çalışmıyor. onun için nasıl bi değişiklik yapmak gerekir?

Merhapa
Pardon ben kodu 2003 versiyonuna göre vermiştim
İlgili kodu aşağıdaki gibi değiştirip denermisiniz

ToplamSatir = Sayfa1.Cells(Rows.Count, "A").End(3).Row

veya

ToplamSatir =[a1048576].End(3).Row

 

[skyhero34]

Numan bey çok teşekkür ederim şuan kod sorunsuz çalışıyor, Süleyman bey benim makroda da If döngüsü olduğu için sizin verdiğiniz kod çalışmadı sanırım.

Yalnız şöyle bir durum var. bu makroyu normal bir şekilde çalıştırınca çalışıyor, fakat araç çubuğuna buton olarak eklediğimde çalışmıyor. Bu konu hakkında bilgisi olan varmı acaba?

 

[numan şamil]

Numan bey çok teşekkür ederim şuan kod sorunsuz çalışıyor, Süleyman bey benim makroda da If döngüsü olduğu için sizin verdiğiniz kod çalışmadı sanırım.

Yalnız şöyle bir durum var. bu makroyu normal bir şekilde çalıştırınca çalışıyor, fakat araç çubuğuna buton olarak eklediğimde çalışmıyor. Bu konu hakkında bilgisi olan varmı acaba?

Kolay gelsin