Merhaba.
Elimde aşağıda ki kod mevcut.
Excel dosyamda A-Z ye sıralı bulunan isim listesi ile aynı isimlerde sekmeler (sheets) oluşturuyorum.
Bu kod ile de isim sırasına göre otomatik sıra tanımlatıyorum.
Sorum şu,
Bu kod excel de doğru sıralıyor fakat çıktı alındığında bazen bazı numaraları 2 defa bastığını görüyorum.
Bunu düzeltebilir yada değiştirebilir miyiz?
Teşekkürler.
Sub UstBilgiEkle()
Dim WorkRng As Range
On Error Resume Next
For Each ws In Application.ActiveWorkbook.Worksheets
Set WorkRng = ws.Range("J1")
ws.PageSetup.RightHeader = WorkRng.Value
Next
End Sub
Elimde aşağıda ki kod mevcut.
Excel dosyamda A-Z ye sıralı bulunan isim listesi ile aynı isimlerde sekmeler (sheets) oluşturuyorum.
Bu kod ile de isim sırasına göre otomatik sıra tanımlatıyorum.
Sorum şu,
Bu kod excel de doğru sıralıyor fakat çıktı alındığında bazen bazı numaraları 2 defa bastığını görüyorum.
Bunu düzeltebilir yada değiştirebilir miyiz?
Teşekkürler.
Sub UstBilgiEkle()
Dim WorkRng As Range
On Error Resume Next
For Each ws In Application.ActiveWorkbook.Worksheets
Set WorkRng = ws.Range("J1")
ws.PageSetup.RightHeader = WorkRng.Value
Next
End Sub