DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Dim sonsat As Long, i As Long
sonsat = Cells(Rows.Count, "C").End(xlUp).Row
For i = sonsat To 1 Step -1
If Cells(i, "C").Value = "boş" Then
Rows(i).Delete
End If
Next i
MsgBox "Silme işlemi bitti" & vbLf & "evrengizlen@hotmail.com"
[FONT="Arial Narrow"]Sub BOŞLARI_SİL_BRN()
For brn = [C65536].End(3).Row To 1 Step -1
If Cells(brn, 3) = "[B][COLOR="Blue"]BOŞ[/COLOR][/B]" Then Rows(brn & ":" & brn).Delete Shift:=xlUp
Next
End Sub[/FONT]
Buyurun.
Kod:Dim sonsat As Long, i As Long sonsat = Cells(Rows.Count, "C").End(xlUp).Row For i = sonsat To 1 Step -1 If Cells(i, "C").Value = "boş" Then Rows(i).Delete End If Next i MsgBox "Silme işlemi bitti" & vbLf & "evrengizlen@hotmail.com"
Yeni konu açmadan buradan sormak istiyorum bir soru daha. Bir hücrenin içi doluysa yanına bir formülü otomatik yazma macrosu olabilir mi?
Misal B1 hücresinde giriş var C1 hücresine istediğim bir formülü otomatik doldurmasını istiyorum.
Yani alt alta B1,B2,B3 doluysa C1,C2,C3 de formül olacak.