makro ile numara yazdırmak

[cemilbenek]

kolay gelsin
F6 hücresinde hangi rakam yazıyorsa
F20'ye kadar dolu olan hücreleri sıralı bir şekilde numaralandırsın
örnek F6 hücresinde 789 yazıyor ve 5hücre dolu sırasıyla
F6 789
F7 790
F8 791
F9 792
F10 793 gibi bir makro istiyorum
formdenimleri düğmenin içine atayacağım
şimdiden yarımlarınız için teşekür ederim
iyi çalışmalar

 

[Saban Sertkaya]

Merhabalar,
Burada sayfa ismi, Sayfa1 olarak belirtildi. Siz kendi sayfa isminizi değiştiriniz.

Sub Makro1()
ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Add Key:=Range("F6"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sayfa1").Sort
.SetRange Range("F6:F" & [F6].End(xlDown).Row)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Kod, makro kaydet yöntemi ile elde edilmiştir. Sadece kırmızı renkli kısım değiştirilmiştir.

 

[cemilbenek]

Merhabalar,
Burada sayfa ismi, Sayfa1 olarak belirtildi. Siz kendi sayfa isminizi değiştiriniz.

Sub Makro1()
ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Add Key:=Range("F6"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sayfa1").Sort
.SetRange Range("F6:F" & [F6].End(xlDown).Row)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Kod, makro kaydet yöntemi ile elde edilmiştir. Sadece kırmızı renkli kısım değiştirilmiştir.

ŞABAN HOCAM ÇALIŞMADI

 

[Saban Sertkaya]

Sayın cemilbenek,
Çalışmadı derken ? Hata aldığınız komut satırı veya yanlış yapılan işlem nedir ?
Bir de örnek dosya ekleyerek sorularınızı sorarsanız, daha isabetli cevaplar alırsınız.

Dosyanızdaki gerçek verileri değiştirerek örnek dosya ekleyebilirsiniz.
dosya.tc veya benzer upload sitelerine, dosyanızı upload edip linki paylaşabilirsiniz.

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Sub Makro1()
    If IsNumeric(Range("F6")) Then Range("F6").AutoFill Destination:=Range("F6:F20"), Type:=xlFillSeries
End Sub