Excel ile Listeleme Yapma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Katılım
28 Tem 2022
Mesajlar
31

Ekli dosyalar

Dosyanızı xlsm formatında kaydedip,
alttaki kodu liste sayfasının kod bölümüne ekleyin ve kaydedin.

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect([B:B], Target) Is Nothing Then Exit Sub
    Sheets.Add After:=Sheets(Worksheets.Count)
    sonsat = Cells(Rows.Count, "B").End(xlUp).Row
    ActiveSheet.Name = Cells(sonsat, 2)
End Sub
 
çok teşekkür ederim.
Dosyanızı xlsm formatında kaydedip,
alttaki kodu liste sayfasının kod bölümüne ekleyin ve kaydedin.

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect([B:B], Target) Is Nothing Then Exit Sub
    Sheets.Add After:=Sheets(Worksheets.Count)
    sonsat = Cells(Rows.Count, "B").End(xlUp).Row
    ActiveSheet.Name = Cells(sonsat, 2)
End Sub
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt