Dolu hücreleri farklı sütuna aktarma

[ozkovlu]

Merhabalar;
A:A sütununda bulunan dolu hücreleri, B:B sütununa arada boşluk kalmadan nasıl aktarabilirim.
Saygılarımla...

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub Aktar()
Application.ScreenUpdating = False
    Columns("A:A").Copy Range("B1")
    Range("B:B").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
    Application.CutCopyMode = False
    Range("B1").Select
    Application.ScreenUpdating = True
    MsgBox "Aktarma İşlemi Tamamlandı. ", vbInformation, "dEdE  " & _
Application.UserName & "'e Başarılar Diler."
End Sub

 

[ozkovlu]

Merhabalar dEdE;
Kitap yazar gibi kod yazıryorsunuz. Maşallah. Allah nazardan saklasın.

=EĞER(A2<>"";A2;KAYDIR($A$1;10;0))

bu şekilde formül lazım.
Saygılarımla...

 

[Erdem Akdemir]

Merhaba,

Aşağıdaki dizi formülünü deneyebilir misiniz.

=EĞERHATA(İNDİS($A$1:$A$20;KÜÇÜK(EĞER($A$1:$A$20<>"";SATIR($1:$20);"");SATIR(A1)));"")

 

[Erdem Akdemir]

Excel 2010 ve üstü versiyonlar için aşağıdaki formül kullanılabilir.

=EĞERHATA(TOPLAMA(15;7;1/($A$1:$A$20<>"")*SATIR($1:$20);SATIR(A9));"")

 

[ozkovlu]

Merhabalar kuvari;
Formülleri ekledim, çalışmadı. Benim dosyaya uyarlayabilir misiniz.
Saygılarımla...
"Bilgiler" sayfasındaki "K" sütununda bulunan isimleri, "kedemeonay" sayfasında "B" sütununa aktarılması.

http://s3.dosya.tc/server10/mr3smw/Terfi_Onayi__YENI.zip.html

 

[Erdem Akdemir]

Örnek dosyanızı google drive'a yükleyebilir misiniz.

 

[ozkovlu]

Dosya ektedir.
https://drive.google.com/open?id=0ByZb1EuD-6jgS1loUDI3RXluMHc

 

[Erdem Akdemir]

Tagdaki formülü kullanabilirsiniz.

=EĞERHATA(İNDİS(Bilgiler!$K$4:$K$1000;KÜÇÜK(EĞER(Bilgiler!$K$4:$K$1000<>"";SATIR($4:$1000);"");SATIR(A1))-3);"")

 

[ozkovlu]

Merhabalar Kuvari;
Gönderdiğiniz formülü kopyaladım fakat istediğim işlemi yapmadı.

 

[Erdem Akdemir]

Ben eklediğiniz dosyada yaptım.
CTRL+SHIFT+ENTER ile kapatmayı unutmayın.

 

[Erdem Akdemir]

Zaman ayırıp sorunuzu cevapladım ama geridönüş alamadım.

 

[ozkovlu]

Kusura bakmayın kuvari, formül tam istediğim şekilde, teşekkür ederim.

 

[ozkovlu]

Merhabalar Kuvari;

Aşağıdaki dizi formülünü deneyebilir misiniz.

{=EĞERHATA(İNDİS(Bilgiler!$AQ$4:$AQ$1000;KÜÇÜK(EĞER(Bilgiler!$AQ$4:$AQ$1000<>"";SATIR($4:$991);"");SATIR(A1))-3);"")}

Gönderdiğiniz formülü kullanıyordum, fakat daha sonra hatalı sonuç verdiğini farkettim. Formülü tekrardan gözden geçirip gönderebilirmisiniz.
Dosya ve Hata açıklaması ektedir.

Saygılarımla...