Sıra numarası

[ozuberk]

Arkadaşlar Merhaba,

Ekte göndermiş olduğum sayfa1 de bulan D sütununa mouse la tıkladığımda sıra numarasının verilmesi.

Örneğin: Boş olan yeri tıkladığımda 1, daha sonraki boş yere 2, 3, 4 olarak devam etmesi

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
If Target.Row = 1 Then Exit Sub
If Target.Value <> "" Then Exit Sub
Dim SonSat As Long
SonSat = [D65536].End(3).Row
If SonSat = 1 Then SonSat = 2
Target = Application.WorksheetFunction.Max(Range("D2:D" & SonSat)) + 1
Son:
End Sub

 

[ozuberk]

Sayın Necdet Bey,


Çok teşekkür ederim oldu elinize sağlık.
Bir sorum daha olacak size bu kodu PERSONAL.XLS dosyasının Module1 nasıl entegre ederbilirim.

 

[ozuberk]

Arkadaşlar yardım edecek kimse yok mu acama?

 

[Necdet]

Merhaba,

Soruyu tam olarak anlamadım. Modül içine oluşturunca nasıl çalıştırmayı düşünüyorsunuz, önce hücre seçip sonra bir butona basmak gibi mi?

 

[ozuberk]

Sayın Hocam,

Bu kodu PERSONAL.XLS kitabından makro olmayan MAİL.XLS kitabında çalıştırmak istiyorum.
Kod normalde sheet de çalışıyor kodu Modüle kopyaladığımda çalışmıyor

 

[uzmanamele]

merhaba

formül alternatifi olsun.
A sütunundaki verileriniz, A1,A2,A3... vs şeklinde ise D sütununda bu formül işinizi görür mü?

=PARÇAAL(A2;2;(UZUNLUK(A2)-1))*1

 

[Korhan Ayhan]

Selamlar,

PERSONAL.XLS dosyasını açın.
ALT+F11 tuşaları ile kod editörünü açın.
ThisWorkbook bölümünü bulun ve çift tıklayın. Karşınıza sağ tarafta boş beyaz bir sayfa açılacaktır.
Aşağıdaki kodu bu bölüme uygulayın. Dosyayı kaydedin ve kapatın.

Option Explicit
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim SonSat As Long
    On Error GoTo Son
    If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
    If Target.Row = 1 Then Exit Sub
    If Target.Value <> "" Then Exit Sub
    SonSat = [D65536].End(3).Row
    If SonSat = 1 Then SonSat = 2
    Target = Application.WorksheetFunction.Max(Range("D2:D" & SonSat)) + 1
Son:
End Sub

Not : Yalnız dikkat edin kod bütün excel sayfalarınızda çalışacaktır. Gerekirse kod içine sayfa adı kontrolü eklenerek her sayfada çalışması engellenebilir.

 

[ozuberk]

Sayın hocalarım yardımlarınız için çok teşekkür ederim

Saygılarımla,
ozuberk