son dolu hücre, süzmede sorun

[igultekin2000]

iyi günler; süzme yaparak isme göre listeleme yapıyorum ve pdf olarak kayıt yapmaktayım. C2 hücresine gelen bilginin , süzme yapıldığı zamanda aktif olan hücrelerde yenilenmesini yapamadım.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

=ARA(2;1/(ALTTOPLAM(3;KAYDIR(I2:I1000;SATIR(I2:I1000)-SATIR(I2);;1)));I2:I1000)

Yalnız, makro kullandığınız için kodlara ilave yaparak makro ile de çözebilirsiniz.

Kodlarda zaten son tanımı ile son satırı bulmuşsunuz.

İlave:

[C2] = Cells(son, "I")

Tercih sizin.

.

 

[igultekin2000]

Sorunsuz çalışıyor

Merhaba,

Bu şekilde deneyin.

=ARA(2;1/(ALTTOPLAM(3;KAYDIR(I2:I1000;SATIR(I2:I1000)-SATIR(I2);;1)));I2:I1000)

Yalnız, makro kullandığınız için kodlara ilave yaparak makro ile de çözebilirsiniz.

Kodlarda zaten son tanımı ile son satırı bulmuşsunuz.

İlave:

[C2] = Cells(son, "I")

Tercih sizin.

.

teşekkürler, formüllü olanı denedim sorunsuz çalışıyor, makroyu tercih edecektim ama

[C2] = Cells(son, "I")

bir kaç deneme yaptım nereye adapte edeceğimi bulamadım.

 

[Ömer]

TextBox için:

Private Sub TextBox1_Change()

Selection.AutoFilter Field:=9, Criteria1:="*" & TextBox1.Value & "*"
[COLOR="Red"]son = Cells(Rows.Count, "a").End(3).Row 'son dolu hücre
[C2] = Cells(son, "I")[/COLOR]
End Sub

Pdf kodu için:

Sub KOD_PDF()
yol = ThisWorkbook.Path
isim = Format(Range("C2").Value, "") ' başlamasatırı

Sheets("Sayfa1").Select ' hangi sayfanın hangi hücreleri kaydedilecek
son = Cells(Rows.Count, "a").End(3).Row 'son dolu hücre
[COLOR="red"][C2] = Cells(son, "I")[/COLOR]
ActiveSheet.Range("A2:g" & son).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "/" & isim & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True
End Sub

.

 

[igultekin2000]

teşekkürler

Teşekkürler ;
Ömer Bey sorunsuz çalışıyor.