Hücredeki şartlar arasını makro ile belirleyip formül yazdırma

[a_self_lion]

Merhaba arkadaşlar,
Aşağıdaki örnek çalışmamda yapmak istediklerimi belirttim yardımcı olursanız sevinirim.

1- C sütününda ilk B yi gördüğü yer ile takibindeki son B yi gördüğü yer arasındaki Diyelim I4 ile I8 arasına formül yazdırmak
I11 ile I15 arasını toplayalım ……
Yine aynı şekilde L4 ile L8 Arasını L11 ile L15 arasını toplayaylım…
yana doğru kırmızı ile işaretlediğim yerleri buralar stunları sabit ama satır aralıkları B ile B arası B ile B ARASI….
2- Yine C sütunundaki ilk B yi gördüğü yer ile takibindeki son B yi gördğü yer arasındaki satırın bir altının h9 hücresine J9/I9 formülünün girilmesi
aynı şekilde yan tarafa doğru iki satır atlayarak K9 A M9/L9 şeklinde girilmesi

Örnek çalışmam yukardaki gibidir.
Saygılarımla.

 

[a_self_lion]

Hayırlı cumalar arkadaşlar.
Sanırım biraz uzun oldu sorum ama aslında temelinde biraz basit. C sütununda ilk B ile Takip eden B arasını son B nin geçtiği hücrenin satırının bir altının 6 hücre sağına =TOPLA(I4:I8) I4 ile bulunan B nin 5 hücre sağı I8 de takibinde bulunan B nin 5 hücre sağı. Bunu bulup formül şeklinde yazdırmak istiyorum.

 

[Ömer BARAN]

Merhaba.

-- Alt taraftan işlem yapılacak sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan VBA ekranında sağdaki boş alana aşağıdaki kod'u yapıştırın,
-- Sayfaya ekleyeceğiniz bir şekil/metin kutusu/düğme'ye fareyle sağ tıklayıp MAKRO ATAyı seçin,
-- Açılacak küçük ekranda B_TOPLA'yı seçerek işlemi onaylayın.
-- Sayfadaki şekil/metin kutusu/düğme'ye fareyle tıklayın.
-- İşlemi FORMÜL şeklinde yaptırmak için kırmızı satırları, FORMÜL SONUCU şeklinde yapmak için mavi satırları SİLİN
.

[B]Sub B_TOPLA()[/B]
[COLOR="Red"]Set wf = Application.WorksheetFunction[/COLOR]
For sat = 2 To Cells(Rows.Count, 3).End(3).Row
    If Cells(sat, 3) = "B" Then
        ilk = sat
        For satt = ilk + 1 To Cells(Rows.Count, 3).End(3).Row
            If Cells(satt, 3) = "B" Then
                son = satt
[COLOR="Blue"]                Cells(son + 1, "I").Formula = "=SUM(I" & ilk & ":I" & son & ")"
                Cells(son + 1, "L").Formula = "=SUM(L" & ilk & ":L" & son & ")"[/COLOR]
[COLOR="Red"]                Cells(son + 1, "I") = wf.Sum(Range(Cells(ilk, "I"), Cells(son, "I")))
                Cells(son + 1, "L") = wf.Sum(Range(Cells(ilk, "L"), Cells(son, "L")))[/COLOR]
                sat = satt: GoTo 10
            End If: Next: End If
10: Next: MsgBox "İşlem tamamlandı..."
[B]End Sub[/B]

 

[a_self_lion]

Ömer bey çok teşekkür ediyorum. Allah sizden razı olsun. inanın çok işime yarayacak. biraz daha geliştireceğim. diğer uygulamalarım içinde kullanacağım.