Excel koşula bağlı satır silme makrosu için bilen birileri var mı

[LightDipper]

EXEL koşula bağlı satır sildirme makrosuna ihtiyacım var hiç bir tecrübem bilgim yok bilgisi olan var sa tam anlatıcam sorunu

 

[thekingc]

tam olarak hakim değilim istersen dm at

 

[orahnozel01]

youtube de gormustum

Excel Koşullu Satır Silme & Boş Satırları Silme​

bunu yaz cıkar

 

[MeteSys_]

banada lazım

 

[orahnozel01]

banada lazım

yaz baba youtube

 

[katimur94]

' Open, edit and save XLSX file
        Dim fileTest As String = "C:\Temp\ExcelTest\test.xlsx"
        Dim oExcel As Object
        oExcel = CreateObject("Excel.Application")
        oExcel.Workbooks.Open(fileTest)
        Dim oBook As Excel.Workbook
        Dim oSheet As Excel.Worksheet
        oBook = oExcel.ActiveWorkbook
        oSheet = oExcel.Worksheets(1)

        ' lets modify a1 and a2
        oSheet.Range("A1").Value = "testing a1"
        oSheet.Range("A2").Value = "testing a2"

        ' save
        oExcel.DisplayAlerts = False
        oBook.SaveAs(fileTest, 51) ' 51 == xlsx
        oBook.Close()
        oBook = Nothing

'Open, edit and save XLS file
  Dim fileTest As String = "C:\Temp\ExcelTest\test.xls"
        Dim oExcel As Object
        oExcel = CreateObject("Excel.Application")
        oExcel.Workbooks.Open(fileTest)
        Dim oBook As Excel.Workbook
        Dim oSheet As Excel.Worksheet
        oBook = oExcel.ActiveWorkbook
        oSheet = oExcel.Worksheets(1)

        ' modify a1 and a2
        oSheet.Range("A1").Value = "Testing a1"
        oSheet.Range("A2").Value = "Testing a2"

        'save
        oExcel.DisplayAlerts = False
        oBook.SaveAs(fileTest, 1) ' 1== xls
        oBook.Close()
        oBook = Nothing