Tablo sınırları

[arsl85]

Arkadaşlar bir tablo oluşturmak istiyorum lakin tablonun sonu yapılan işleme göre belirlenecek,ben ufaktan birşeyler yazdım ama bu konu da yeni olduğumdan göremediğim yada bilmediğim çok nokta var.
Private Sub CommandButton6_Click()
s = 2
For sira = s To Range("AD2") / 0.25 + 2
Range("AE" & sira).Value = (sira - 2) * 0.25
Range("AF" & sira).Value = Range("AE" & sira).Value + 10

Range("AG" & sira).Value = (sira - 2) * 0.25
Range("AH" & sira).Value = (sira - 2) * 0.25
Next
With Range("AE2 :ah & dnm") ****
k = 2
For dnm = k To Range("ad2") / 0.25 + 2

.Borders.LineStyle = xlDot

.Borders.LineStyle = xlDot

.Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeTop).Weight = xlMedium
.Borders(xlEdgeBottom).Weight = xlMedium
.Borders(xlEdgeRight).Weight = xlMedium
Next

End With

End Sub

*** işaretiyle gösterdiğim yer yani range oluşturulan ikinci kısım da değişkeni tanımlayamadım. Forumda da aradım,göremedim.

 

[YUSUF44]

With Range("AE2 :ah" & dnm)

olarak denediniz mi?

Yalnız bu durudma dnm'yi daha önce bir şekilde tanımlamanız gerekir.

 

[arsl85]

With Range("AE2 :ah" & dnm)

olarak denediniz mi?

Yalnız bu durudma dnm'yi daha önce bir şekilde tanımlamanız gerekir.

Private Sub CommandButton6_Click()
s = 2




For sira = s To Range("AD2") / 0.25 + 2
Range("AE" & sira).Value = (sira - 2) * 0.25
Range("AF" & sira).Value = Range("AE" & sira).Value + 10

Range("AG" & sira).Value = (sira - 2) * 0.25
Range("AH" & sira).Value = (sira - 2) * 0.25
Next
dnm = Range("ad2") / 0.25 + 2

With Range("AE2 :ah" & dnm)



.Borders.LineStyle = xlDot

.Borders.LineStyle = xlDot

.Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeTop).Weight = xlMedium
.Borders(xlEdgeBottom).Weight = xlMedium
.Borders(xlEdgeRight).Weight = xlMedium


End With
bu şekilde çalıştı. Teşekkür ederim