Sıra numarası

[muratgunay48]

Arkadaşlar, sayın hocalarım, iki tane dosya var Numara adlı dosya ile test adlı dosyayı çalıştıracağım.
3. Kısımı yaptım. 2. Kısımda B sütununda dolu hücrenin yanına A2'den başlayarak sıra numarası verecek.
20 kere bozup yazdım, bozup yazdım. Her bozduğumda daha da yanlış oldu.
Yardımcı olabilir misiniz lütfen.
Şimdiden teşekkür ederim.
Saygılarımla.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Numara_Ver()
    Dim WB As Workbook, Dosya As String, Last_Row As Long
    
    Application.ScreenUpdating = False
    
    Dosya = "C:\Users\muratgunay48\Desktop\test.xlsx"
    
    Set WB = Workbooks.Open(Filename:=Dosya)

    Last_Row = Cells(Rows.Count, "B").End(3).Row

    Range("A2") = "1"
    Range("A2:A" & Last_Row).DataSeries
    Range("C2:C" & Last_Row) = "Haber"
    Range("A2:C" & Last_Row).Borders.LineStyle = 1
    
    WB.Close True
    
    Set WB = Nothing
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[muratgunay48]

Deneyiniz.

Option Explicit

Sub Numara_Ver()
    Dim WB As Workbook, Dosya As String, Last_Row As Long
 
    Application.ScreenUpdating = False
 
    Dosya = "C:\Users\muratgunay48\Desktop\test.xlsx"
 
    Set WB = Workbooks.Open(Filename:=Dosya)

    Last_Row = Cells(Rows.Count, "B").End(3).Row

    Range("A2") = "1"
    Range("A2:A" & Last_Row).DataSeries
    Range("C2:C" & Last_Row) = "Haber"
    Range("A2:C" & Last_Row).Borders.LineStyle = 1
 
    WB.Close True
 
    Set WB = Nothing
 
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

Hocam çok teşekkür ederim.
Emeğinize sağlık.
Sheets("test").Select ekledim, tam oldu.
Peki hocam, WB.Close True , False yapınca dosyanın açık kalması gerekmiyor mu?
Test dosyası her koşulda kapanıyor. Bazen açık kalması gerekiyor.

 

[Korhan Ayhan]

WB.Close True

Bu komut dosyayı kaydederek kapat anlamına gelir. FALSE yaptığınızda ise dosyayı kaydetmeden kapat anlamına gelir.

Dosyanın açık kalması gerekiryorsa bu satırı silip yerine aşağıdaki satırı ekleyebilirsiniz. Bu komut sadece dosyayı kaydeder.

WB.Save