Son mumarayı sildirmek

[arslan]

İyi çalışmalar Arkadaşlar

C13 den başlayan Aşağı doğru giden sıra Numaralarım var. Commandbutton'a
her bastığımda en altan yukarı doğru sildirmek istiyorum

Yardımcı olabilirseniz sevinirim
Teşekkürler

 

[cako]

Private Sub CommandButton1_Click()
Dim i As Integer
i = Range("C65536").End(xlUp).Row
If i >= 13 Then
Range("C" & i).Delete
End If
End Sub

 

[danersin]

Yada

[vb:1:08f28a5100]If Cells(65536, 3).End(xlUp).Row > 13 Then Cells(Cells(65536, 3).End(xlUp).Row, 3).ClearContents[/vb:1:08f28a5100]

 

[arslan]

Tesekkür

C13 den başlayan derken yani satır 13 den başlıyor demek istedim
Numaralar 1 den başlıyak gidiyor .
1
2
3
4
Gibi

Ama alttaki Visual basic kodu işimi gördü

 

[cako]

:hihoho: üstteki de visual basic kodu.
ve de biririnin aynısı. :icelim:

 

[danersin]

:? Aynı işi yapıyorlar.

 

[danersin]

Pardon aynı işi yapmıyorlar.
Ben 1 rakamının silinmesine izin vermedim.
@cako vermiş. :hey:

 

[cako]

:hiho:

 

[arslan]

Afedersiniz ya ben yanlış uygulamışım


Zaten biliyor olsaydım sormama gerek kalmazdı
Sizi bidaha yordum
Tesekkürler

 

[abazya]

Bence bu da iş görür
Private Sub CommandButton1_Click()
Range("C65536:C13").Select
Selection.ClearContents
End Sub

 

[arslan]

abazya,

tamammını değil alttan başlayarak tek tek silmeli

 

[abazya]

her bastığımda en altan yukarı doğru sildirmek istiyorum

Pardon ben tek tek diye düşünemedim yanlışımı düzeltiğin için teşekkür ederim Başka zaman hatırlatırsan yazdıklarını değil beynini okumaya dikkat ederim