B Sütununda veri varsa A sütununa sıra numarası koymak

[gkhn2]

Selamlar

Ekteki dosyada eğer B sütununda veri varsa karşılığı A sütunundaki hücreye sıra numarası koysa ve A sütunu her zaman otomatik sıralansa mümkün mü?

http://dosya.co/4qg3oyifgg3j/Kitap1.xlsx.html

 

[ASLAN7410]

Merhaba

Aşağıdaki kod alıntıdır, bu kodu sayfanızın kod bölümüne yapıştırın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim s As Long
sonsat1 = Range("b65536").End(3).Row
sonsat2 = Range("a65536").End(3).Row
If sonsat1 >= sonsat2 Then sonsat = sonsat1 Else sonsat = sonsat2
For i = 3 To sonsat '3 rakamı satırı ifade ediyor
If Cells(i, 2).Value = "" Then
Cells(i, 1).Value = ""
Else
s = s + 1
Cells(i, 1).Value = s
End If
Next i
End Sub

 

[gkhn2]

Merhaba

Aşağıdaki kod alıntıdır, bu kodu sayfanızın kod bölümüne yapıştırın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim s As Long
sonsat1 = Range("b65536").End(3).Row
sonsat2 = Range("a65536").End(3).Row
If sonsat1 >= sonsat2 Then sonsat = sonsat1 Else sonsat = sonsat2
For i = 3 To sonsat '3 rakamı satırı ifade ediyor
If Cells(i, 2).Value = "" Then
Cells(i, 1).Value = ""
Else
s = s + 1
Cells(i, 1).Value = s
End If
Next i
End Sub

teşekkürler çalıştı ama çok kastı anlamadım...

 

[ASLAN7410]

Sayfanın kod bölümüne aşağıdaki kodu yapıştırın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Column <> 2 Then Exit Sub
Call sırala
End Sub

Bir modülede aşağıdaki kodu yapıştırın.

Sub sırala()
Dim s As Long
sonsat1 = Range("b65536").End(3).Row
sonsat2 = Range("a65536").End(3).Row
If sonsat1 >= sonsat2 Then sonsat = sonsat1 Else sonsat = sonsat2
For i = 3 To sonsat '3 rakamı satırı ifade ediyor
If Cells(i, 2).Value = "" Then
Cells(i, 1).Value = ""
Else
s = s + 1
Cells(i, 1).Value = s
End If
Next i
End Sub

 

[gkhn2]

maalesef yine kastı

 

[ÖmerBey]

Aşağıdaki kodu deneyiniz.

Sub sırala()
sonsat1 = Range("b65536").End(3).Row
sonsat2 = Range("a65536").End(3).Row
If sonsat1 >= sonsat2 Then sonsat = sonsat1 Else sonsat = sonsat2
dz = Range("A3:A" & sonsat)
For i = 3 To sonsat '3 rakamı satırı ifade ediyor
If Cells(i, 2).Value = "" Then
    s = s + 1
    dz(s, 1) = ""
Else
    s = s + 1
    sıra = sıra + 1
    dz(s, 1) = sıra
End If
Next i
Application.Calculation = xlCalculationManual
Range("A3:A" & sonsat) = dz
Application.Calculation = xlCalculationAutomatic
End Sub

 

[AYDINY1]

Aşağıdaki kodu deneyiniz.

Sub sırala()
sonsat1 = Range("b65536").End(3).Row
sonsat2 = Range("a65536").End(3).Row
If sonsat1 >= sonsat2 Then sonsat = sonsat1 Else sonsat = sonsat2
dz = Range("A3:A" & sonsat)
For i = 3 To sonsat '3 rakamı satırı ifade ediyor
If Cells(i, 2).Value = "" Then
    s = s + 1
    dz(s, 1) = ""
Else
    s = s + 1
    sıra = sıra + 1
    dz(s, 1) = sıra
End If
Next i
Application.Calculation = xlCalculationManual
Range("A3:A" & sonsat) = dz
Application.Calculation = xlCalculationAutomatic
End Sub

otomatik sıralmadı makro oluşturdu ama

 

[ÖmerBey]

Nasıl bir sıralama yapmasını istiyorsunuz?
Neye göre?

 

[AYDINY1]

Nasıl bir sıralama yapmasını istiyorsunuz?
Neye göre?

B sütununa tarih atıyorum hep. Tarih atınca A sütununa sırayı takip eden sıra numarası versin ve A sütunu hep küçükten büyüğe sıralı olsun.

 

[ÖmerBey]

Peki tarihi hep son satıra mı atıyorsunuz? Yoksa aralara da tarih attığınız oluyor mu?
Eğer oluyorsa bu durumda sıra üsttekinin bir fazlası şeklinde mi olacak yoksa A sütunundaki en büyük sayının bir fazlası şeklinde mi?