Remove unwant Data in each rows

[yukioh]

สะหวัดดีครับ อาจาน ก่อนอืนผมต้องออกตัวก่อนว้า พาสาไทย ไม้ค้อยเก่งเท้าไหล
ผมขอลบกวนอาจานช้วยผมหน่อย เกี่วยกับกาน Delete rows ที่เราไม้ต้องกานครับ

มีข้อมูนอยูใน colums"V" period , ต้องกานที่จะ delete rows ที่มีข้อมูนที่กำนดออกไป ก็คือ 2012/003
ผมได้ลองใส่ code แล้ว ดูเหมือนว่ามันจะ fix อยู่ที้ 2012/003

ลบกวน อาจารย์ ด้วยครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub test()
    ' Dim i As Long
    Dim r As Range
    Dim rall As Range
    
    ' LR = Sheets("Sheet1").Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    
    Set rall = ActiveSheet.Range("V5", ActiveSheet.Range("V" & Rows.Count).End(xlUp))
    ' For i = LR To 2 Step -1
    For Each r In rall
        If r = ActiveSheet.Range("B2") Then
            r = ""
        End If
    Next r
    rall.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

[yukioh]

ขอบคุณมากมากครับ อาจาน, เป็นไปตามที่ต้องกานเลียครับ

ผมขอ ถามต่ิอเกียวกับกานส้าง privot ด้วยครับ
ข้อมูนที่ผมนำมา แต่ละเดือนในกานส้าง Privot ใน sheet1 บางทีก็มาก บางที่ก็น้อย แตกต่่้่างกันออกไป,
ผมได้ลองใส่ code Create Privot แล้ว run ดู, ปลากดว่า ข้อมูนใน Sheet3 ที่เป็น Privot นั้น บางครั้งมันก็มาดรบ และ บางครั้งมันก็มาไม่ดรบ
ลบกวน อาจารย์ ด้วยครับ....

[snasui]

ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

'... other code
    Dim rAll As Range
    Set rAll = Sheets("Sheet1").Range("A4", Sheets("Sheet1").Range("V" & Rows.Count).End(xlUp))
       ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!" & rAll.Address).CreatePivotTable TableDestination:="", TableName:= _
        "PivotTable7", DefaultVersion:=xlPivotTableVersion10
'... other code

[yukioh]

ขอบคุณมากมากครับ อาจาน