kayıt sayısına göre değişen gelişmiş süz alanı

[enderturk]

Merhaba

gelişmiş süz'de b124 yerine h1 hücresindeki BAÐ_DEÐ_DOLU_SAY('Firma Adı'!B:B)-1 formülünün sonucunun 6 fazlasının satır numarası olarak geçmesi mümkün mü?

Sheets("Firma Adı").Range("B6:B124").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Columns("I:I"), Unique:=True

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:07006f6eea]sat=worksheetfunction.counta(sheets("Firma Adı").[b1:b65536]+5
Sheets("Firma Adı").Range("B6:B" & sat)........[/vb:1:07006f6eea]

 

[enderturk]

TEÞEKKÜRLER

 

[elifemre]

:hayir: :cekic: :boo:

 

[elifemre]

sadece sayfayı karıştırıyordum pardon