• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Otomatik sıralandırmayı istediğimiz satırdan aşlatma

Katılım
8 Şubat 2013
Mesajlar
48
Excel Vers. ve Dili
EXCEL 2010 TÜRKÇE
Otomatik sıralandırmayı istediğimiz satırdan başlatma

İyi akşamlar
Ekli dosyada düğme ile 1. satırdan başlayan otomatik sıralama yapan bir çalışma var ben sıralamayı 2. satırdan başlatmak istiyorum. Yardımcı olursanız çok memenun olacağım.
 

Ekli dosyalar

  • ss.xlsm
    ss.xlsm
    16.7 KB · Görüntüleme: 14
Son düzenleme:
Kod:
Sub SIRANO()
Dim sayi As Byte
For sayi = 2 To 20
Cells(RowIndex:=sayi, columnindex:=1) = sayi - 1
Next sayi
End Sub
 
Kod:
Sub SIRANO()
Dim sayi As Byte
For sayi = 2 To 20
Cells(RowIndex:=sayi, columnindex:=1) = sayi - 1
Next sayi
End Sub

Sayın Civan Jack ilgi ve katkılarınız için teşekkürler. Ancak sayma sıfırla başlıyor esas dosyamda a1 de başlık var bu şekilde başlığı silip 0 yazıyor a1 i boş bırakarak a2 den başlatabilir miyiz acaba?
 
iki sorum olacak
birincisi
araya girmiş gibi olmayayım ama bende örnek sıra numarasının 101 den başlamasını istiyorum.

ikincisi b sütununa bir şey yazarsam a sütununa numaras vermesi buda istediğim sayıdan başlayacak.
 
iki sorum olacak
birincisi
araya girmiş gibi olmayayım ama bende örnek sıra numarasının 101 den başlamasını istiyorum.

ikincisi b sütununa bir şey yazarsam a sütununa numaras vermesi buda istediğim sayıdan başlayacak.


İlki için
Kod:
Sub SIRANO()
Dim sayi As Byte
For sayi = 2 To 20
Cells(RowIndex:=sayi, columnindex:=1) = sayi + 99
Next sayi
End Sub

İkincisi için örnek gerek.
 
Çağrıbey, 0 dan başlatmak istiyorsanız koddaki kırmızı yere bakınız.İstediğiniz şekilde burdan ayar yapabilirsiniz.
Kod:
Sub SIRANO()
Dim sayi As Byte
For sayi = 2 To 20
Cells(RowIndex:=sayi, columnindex:=1) = sayi [COLOR="Red"][B]- 2[/B][/COLOR]
Next sayi
End Sub
Burak12 , anladığım kadarıyla B sütununa değer girdikçe A sütununa sıra no vermesi.Ben B1 hücresinden başlatıp , sıra no 100 olarak belirledim.Kırmızı yerleri kendinize göre ayarlayınız.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [COLOR="red"][B][B1:B65536][/B][/COLOR]) Is Nothing Then Exit Sub
On Error Resume Next
Target.Offset(0, -1).Value = Target.Row + [COLOR="red"][B]99[/B][/COLOR]
End Sub
 
Geri
Üst