excelde satırda sadeleştirme işlemi

[mstmutlu]

merhaba arkadaşlar, excelde yapmaya çalıştığım bir rapor var ve bana yardımcı olabilirseniz sevinirim. örnek dosya ekte

 

[Levent Menteşoğlu]

Eklediğiniz dosyada aşağıdaki kodu deneyin.

[vb:1:342dfb6318]Sub duzenle()
On Error Resume Next
[a:a].SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
[a:a].Delete
For a = 1 To [a65536].End(3).Row
adr = "b" & a & ":h" & a
sifirsay = WorksheetFunction.CountIf(Range(adr), 0)
enkucuk = WorksheetFunction.Small(Range(adr), sifirsay + 1)
If sifirsay = 7 Then enkucuk = 0
Cells(a, "b") = enkucuk
Next
[c:h].Delete
End Sub[/vb:1:342dfb6318]

Not:Bu kod verileri sildiğinden uygulamayı her zaman asıl dosyanızın bir kopyası üzerinde çalıştırın. Yani Asıl dosyanızı yedeklemeyi unutmayın.

 

[mstmutlu]

ellerinize sağlık süper olmuş yanlız bir şey söyleyecem (-) tutarları dahil edebilme şansımız varmı

 

[Levent Menteşoğlu]

Bu durumda kodu aşağıdaki ile değiştirin.

[vb:1:770571e7c1]Sub duzenle()
On Error Resume Next
[a:a].SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
[a:a].Delete
For a = 1 To [a65536].End(3).Row
adr = "b" & a & ":h" & a
kucuk = WorksheetFunction.Small(Range(adr), 1)
If kucuk < 0 Then
Cells(a, "b") = kucuk
GoTo 10
End If
sifirsay = WorksheetFunction.CountIf(Range(adr), 0)
enkucuk = WorksheetFunction.Small(Range(adr), sifirsay + 1)
If sifirsay = 7 Then enkucuk = 0
Cells(a, "b") = enkucuk
10 Next
[c:h].Delete
End Sub
[/vb:1:770571e7c1]

 

[mstmutlu]

çok güzel olmuş ellerinize sağlık. biliyorum fazla oluyorum ama sütun eklemek istediğimde hangi karakteri değiştirmem gerekecek mesala örnekte ''ı'' sütununda bitiyordu ben ''j'' sütununu da eklemek istiyorum gerçekten çok yardımcı oldunuz teşekürler şimdiden. :dua: :dua:

 

[Levent Menteşoğlu]

Kod içindeki "h" son sütunu temsil ediyor. Bu harfi değiştirin. Örneğin "J" sütununa kadar ise bu harfi bir önceki harf yani "I" yapın.

 

[mstmutlu]

çok teşekürler, çok yardımcı oldunuz kolay gelsin k:: :mutlu: