A sütununu süzüp sağ kolondaki değerleri toplamak

[compusayar]

Arkadaşlar merhaba,

Çok satırlı bir excel sayfasında, A sütununda ürün bilgileri ve B sütununda o ürün ile ilgili detay bilgiler var.(Pivot tablo benzeri)
Aşağıdaki resim de de görebileceğiniz gibi, A sütununda bir ürün yazılmış ve o ürün ile ilgili detay bilgiler kaç satır ise, A sütununda o kadar satırlık boşluk atılmış.
B sütunu dolu olup da, A sütunundaki boş olan alanlara, A sütunundaki doğru değeri yazmak istiyorum.

Amacım: A sütununu süzüp sağ kolondaki değerleri toplamak, filtrelemek vs. vs.

İlginize şimdiden teşekkür ederim.

 

[Ömer BARAN]

Merhabalar.
Mevcut sütnlarınızda değişiklik yapmak istemezseniz (veriler belki başka programlardan kopyala-yapıştır ile geliyor olabilir diye düşündüm);
sağ tarafta uygun bir sütunda (1'inci satırın BAŞLIK olduğunu varsayarak) 2'nci satıra

=EĞER(A2="";B1;A2)

formülünü uygulayıp aşağı doğru liste boyunca kopyalayın ve artık filtre işlemini, bu sütunda kullanın.

 

[Ömer BARAN]

Bu işlem için kod kullanmak isterseniz aşağıdaki kod'u ilgili sayfanın kod bölümüne yapıştırın, sayfaya bir düğme/şekil ekleyin ve bu şekil/düğmeye bu kod'u (fareyle sağ tık "Makro Ata" listeden seç) atayın.

Sub BARAN()
son = [B65536].End(3).Row

For a = 2 To son
    If Cells(a, 1) = "" Then
        Cells(a, 1) = Cells(a - 1, 1)
    End If
Next
End Sub

 

[compusayar]

Bu işlem için kod kullanmak isterseniz aşağıdaki kod'u ilgili sayfanın kod bölümüne yapıştırın, sayfaya bir düğme/şekil ekleyin ve bu şekil/düğmeye bu kod'u (fareyle sağ tık "Makro Ata" listeden seç) atayın.

Sub BARAN()
son = [B65536].End(3).Row

For a = 2 To son
    If Cells(a, 1) = "" Then
        Cells(a, 1) = Cells(a - 1, 1)
    End If
Next
End Sub

Ömer Baran bey ilginize çok teşekkür ederim.. İlk mesajındaki formülü zaten denemiştim ama istediğim sonucu elde etmediği için Foruma başvurdum.

Yazdığınız Macro %100 doğru çalışıyor... Macro işimi gördü ama merak ettim doğrusu; bunun EXCEL içindeki Fonksiyonlar ile çözülme ihtimali yok mu acaba?

 

[compusayar]

ömer hocam son mesajımı görebildiniz mi acaba?
"bunun EXCEL içindeki Fonksiyonlar ile çözülme ihtimali yok mu acaba?"

 

[Ömer BARAN]

ömer hocam son mesajımı görebildiniz mi acaba?
"bunun EXCEL içindeki Fonksiyonlar ile çözülme ihtimali yok mu acaba?"

Merhabalar.
--A sütununda ilk dolu hücreden, son boş hücreye kadar (B sütunundaki son dolu hücrenin satırına kadar) kadar ki A sütunundaki hücre aralığını seçin.
--Excel GİRİŞ menüsündeki BUL ve SEÇ menüsüne tıkladığınızda açılan menüden ÖZEL GİT'e tıklayın,
--Açılan ekranda sol tarafta BOŞLUKLARı seçin. (Böylece boşluklar seçildi)
--Formül çubuğuna A sütunundaki ilk dolu hücre adını kullanarak, örneğin ilk dolu hücre A5, ilk boş hücre A6 ise; =A5 yazın ve CTRL+ENTER tuşunua birlikte basın.
Boşlukların bir üstteki veriyle doldurulmuş olması gerekir.
.

 

[compusayar]

Süpersiniz!
çok teşekkürler.

 

[Ömer BARAN]

Süpersiniz!
çok teşekkürler.

İyi günler dilerim.

 

[compusayar]

Sağolsun..

Saygılar, hürmetler.