[]
Bir Excel çalışma kitabında?
Tüm formüller, sütunların başlıkları aynı kalsın sadece girilen verileri temizlemek istediğimde bunu nasıl yapabilirim? İlgili kısmı seçip içeriği temizle deyince formüller de gitti sanırım.
selam, aşağıdaki vba kodu ile yapabilirsin
başlıkların birinci satırda olduğu varsayımı ile yazdım
Sub colorsmyseaperfectfilan()
Dim ws As Worksheet
Dim rng As Range
Dim lastRow As Long
Dim lastCol As Long
Dim cell As Range
Set ws = ActiveSheet
lastRow = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
lastCol = ws.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Set rng = ws.Range("A2:" & ws.Cells(lastRow, lastCol).Address)
For Each cell In rng
If cell.Row > 1 And cell.HasFormula = False Then
cell.ClearContents
End If
Next cell
End Sub
başlıkların birinci satırda olduğu varsayımı ile yazdım
Sub colorsmyseaperfectfilan()
Dim ws As Worksheet
Dim rng As Range
Dim lastRow As Long
Dim lastCol As Long
Dim cell As Range
Set ws = ActiveSheet
lastRow = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
lastCol = ws.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Set rng = ws.Range("A2:" & ws.Cells(lastRow, lastCol).Address)
For Each cell In rng
If cell.Row > 1 And cell.HasFormula = False Then
cell.ClearContents
End If
Next cell
End Sub
- pislick0 (06.04.23 20:14:58 ~ 20:15:18)
1