[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.
[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]
ç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:
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.