SAYFA İÇİNDEKİ BİR SÜTUNUN DEĞERİNE GÖRE SATIRIN TA

[BLUESEA]

SAYFA ÝÇÝNDEKÝ BÝR SÜTUNUN DEÐERÝNE GÃ?RE SATIRIN TA

SELAM,
EKTE Ã?RNEÐİNİ GÃ?NDERDİÐİM SAYFADA YER ALAN TABLONUN " N " SÜTÜNUDAKİ BAKİYENİN " 0 " (SIFIR) OLMASI DURUMUNDA BU SATIRI KOMPLE BAÞKA BİR SAYFAYA TAÞIMASI İÇİN YARDIMCI OLURMUSUNUZ. ANCAK BU SATIR ÇIKTIÐI ZAMAN ALTTAKİ SATIRLARIN DA TAÞIDIÐIMIZ SATIRA KAYDIRMAK MÜMKÜNMÜ.
BİR DE BU SAYFADAN 20 ADET VAR.

YARDIMLARINIZ İÇİN ÞİMDİDEN TEÞEKKÜR EDERİM.

SAYGILARIMLA,

 

[ALPEN]

selam

Application.ScreenUpdating = False
I = 1
J = 1
While Not IsEmpty(ActiveWorkbook.Worksheets("sayfa1").Range("N" & I))

    If Worksheets("sayfa1").Range("N" & I) = 0 Then
    
        Worksheets("sayfa1").Rows(I).EntireRow.Copy Worksheets("sayfa2").Range("A" & (Worksheets("sayfa2").Range("N65536").End(xlUp).Row + J))
        Worksheets("sayfa1").Rows(I).EntireRow.Delete
        
        
    Else
        I = I + 1
    End If
Wend
Application.ScreenUpdating = True

edit:
verilerin bulunduğu sayfadaki 2. satırı karışıklık çıkarmaması için tamamen sildim.

 

[BLUESEA]

ALPEN YARDIMIN İÇİN ÇOK TEÞEKKÜR EDERİM.

CEHALETİME VERİN AMA BEN BU MAKROYU ÇALIÞTIRAMADIM. MAKROYU KAYDEDİP SAVE'LEDİKTEN SONRA DOSYAYI KAPATIP AÇINCA

" Compile erro : Invalid outside procedure " hata mesajı veriyor.

 

[ALPEN]

merhaba

aşağıdaki dosyayı inceleyin.

 

[BLUESEA]

İYİ AKÞAMLAR,

ALPEN BU BANA İKİNCİ YARDIMIN VE SANA OLAN BORÇLARIM ARTIYOR. ÇOK TEÞEKKÜR EDERİM.

SAYGILARIMLA,

 

[ALPEN]

evet 6 duble oldu. hehe