SAYFA İÇİNDEKİ BİR SÜTUNUN DEĞERİNE GÖRE SATIRIN TA [Archive] - Excel Forum
PDA

Tüm Versiyonu Göster : SAYFA İÇİNDEKİ BİR SÜTUNUN DEĞERİNE GÖRE SATIRIN TA

BLUESEA
17-09-2004, 13:29
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
17-09-2004, 15:07
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
17-09-2004, 16:19
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
17-09-2004, 16:42
merhaba

aşağıdaki dosyayı inceleyin.
BLUESEA
17-09-2004, 17:08
İYİ AKÃAMLAR,

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

SAYGILARIMLA,
ALPEN
17-09-2004, 17:14
evet 6 duble oldu. hehe

Özel Arama