Kdv raporu hazırlama

[muratkul]

Merhabalar,
Ekteki dosyadaki bilgilere göre kdv raporu hazırlamak istiyorum. raporda filtre ile hangi tarihi seçtiysem kdv matrahlarını ve o kdv matrahına denk gelen kdv toplamlarını raporun üstüne hazırladığım şablona yazmasını istiyorum. Aycı her temsilci değiştiğinde o temsilcilnin bulunduğu alanı koyu çizgiyle belirtmesini istiyorum.

 

[YUSUF44]

D2 için aşağıdaki formülü kullanabilirsiniz:

=ALTTOPLAM(9;$O$9:$O$138)

Diğer KDV türleri ya da matrah türleri için formüldeki sütunları P, Q, R vs olarak değiştirin.

 

[Ömer BARAN]

Merhaba.

► Kenarlık işlemi için
(koyu çizgi/düz çizgi ayrımı yerine,
noktalı çizgi/düz çizgi ayrımı kullanmak daha kolay olacak ve sonuca koşullu biçimlendirme ile kolayca ulaşılacak) ;
-- Tüm tablo alanını (A10:S138) seçiliyken, kenarlık olarak noktalı kenarlığı seçip İÇ ve ÇERÇEVEyi seçin,
-- Ardından aynı alan seçiliyken,
...... KOŞULLU BİÇİMLENDİRME => FORMÜL KULLAN seçeneğinde =$C10<>$C9 formülünü uygulayıp kenarlık olarak üst düz çizgili kenarlığı seçip işlemi onaylayın,
...... KOŞULLU BİÇİMLENDİRME => FORMÜL KULLAN seçeneğinde =$C10<>$C11 formülünü uygulayıp kenarlık olarak alt düz çizgili kenarlığı seçip işlemi onaylayın.

► Tablonun üst tarafındaki özet bilgi için;
-- B2 hücresine aşağıdaki formülü uygulayın,
-- Diğer özet bilgi hücreleri için, aynı formüldeki sütun adlarını değiştirmeniz yeterli olacaktır.
.

=[COLOR="red"]ALTTOPLAM[/COLOR](9;$[B][COLOR="Blue"][SIZE="4"]K[/SIZE][/COLOR][/B]$10:$[B][COLOR="blue"][SIZE="4"]K[/SIZE][/COLOR][/B]$138)

 

[muratkul]

teşekkürler.
tabloyu görebiliyorsanız altlardaki genel toplamları nasıl alacağım. Ben otomatik topla dedim ama sonucu sıfır verdi.

 

[YUSUF44]

KDV toplamı için D6 hücresine:

=TOPLA(D2:D5)

Diğerini kendiniz ayarlayabilirsiniz.

Süzme aktifken otomatik toplam düğmesi TOPLA formülünü değil ALTTOPLAM formülünü ekler.

 

[muratkul]

Ömer Baran Bey koşullu biçimlendirmeyi beceremedim. Eğer mümkünce siz tabloya yapıp tabloyu tekrar ekleytip gönderebilirmisiniz.

 

[muratkul]

Ömer Bey koşullu biçimlendirme çalışıyor fakat filtreden tarihi değiştirdiğim zaman otomatik çizgileri güncellemiyor. Bununla ilgili de yardımcı olabilirmisiniz.

 

[muratkul]

Yusuf Bey teşekkür ederim.

 

[muratkul]

Ömer Bey koşullu biçimlendirme çalışıyor fakat filtreden tarihi değiştirdiğim zaman otomatik çizgileri güncellemiyor. Bununla ilgili de yardımcı olabilirmisiniz.

 

[Ömer BARAN]

Yanlış bilmiyorsam, filtre ile koşullu biçimlendirme arasında bir bağ yok.

Ben olsam;
► veri alanın tümüne herhangi bir rengin en açık tonu ile arka plan rengi verip yine alanın tümüne noktalı kenarlık (iç ve çerçeve) uygulardım,

► ardından da;
-- uygun bir sütunda (örneğin T sütunu), T10 hücresine aşağıdaki formülü uygulayıp liste boyunca kopyalardım,

=[COLOR="red"]EĞER[/COLOR](C10<>C9;[COLOR="Red"]MAK[/COLOR]($T$9:T9)+1;T9)

-- alanın tümü seçiliyken koşullu biçimlendirme => formül kullan seçeneğine de =TEKMİ($T10) formülü uygulayıp,
başka bir rengin en açık tonunu seçtikten sonra işlemi onaylardım.

►Böylece filtre uygulandığında da C sütunundaki veriler kenarlık yerine renk ile birbirinden ayrılırdı.

Tabi tercih sizin.
.

 

[muratkul]

Ömer Bey, Daha ÖNce bu kodu siz yapmıştınız bana. Şİmdiye kadar bu kodu kullanıyordum. Çok güzel çalışıyor ama bunu C sütununa göre düzeltebilirmisiniz. Yani C deki veriler değiştikçe çizgi ve kenarlık yapsın.

Sub ÇERÇEVE_KENARLIK_BRN()
Columns("A:S").Borders.LineStyle = xlNone: son = [A65536].End(3).Row
With Range("A1:S" & son).Borders: .LineStyle = xlContinuous: .ColorIndex = 16: .Weight = xlThin: End With
For brn = 2 To [A65536].End(3).Row
ilk = WorksheetFunction.Match(Cells(brn, 1), Range("A1:A" & [A65536].End(3).Row), 0)
son = ilk + WorksheetFunction.CountIf(Range("A1:A" & [A65536].End(3).Row), Cells(brn, 1)) - 1
alan = "A" & ilk & ":S" & son: Range(alan).Select
With Selection.Borders(xlEdgeLeft): .LineStyle = xlContinuous: .ColorIndex = 0: .Weight = xlMedium: End With
With Selection.Borders(xlEdgeTop): .LineStyle = xlContinuous: .ColorIndex = 0: .Weight = xlMedium: End With
With Selection.Borders(xlEdgeBottom): .LineStyle = xlContinuous: .ColorIndex = 0: .Weight = xlMedium: End With
With Selection.Borders(xlEdgeRight): .LineStyle = xlContinuous: .ColorIndex = 0: .Weight = xlMedium: End With
brn = son: Next: Cells(1, 1).Activate: MsgBox "KENARLIKLAR TAMAM"
End Sub

 

[muratkul]

zamanında yapmış olduğunuz örnek tablom

 

[muratkul]

Merhaba Ömer Bey, Eğer göndermiş olduğum kodu c sütununa yapabilirseniz çok güzel olur ama olmaz derseniz Dediğiniz gibi çizgi yerine her temsilcinin dolgusunu açık ve koyu olarak birbirlerinden ayırabiliriz. bunun için de bana uygun formülleri yapıp gönderebilirmisiniz.