Snasui Excel Forum

อยากย่อให้สั้นกว่านี้ครับ

พอใส้ สูตร =IF(B2<>"",COUNTA($B$2:B2),"") ในคอลัม A sheet2 เมื่อทำการ run vba แล้ว

สูตร ในคอลัม A จะไม่มี เลย ไม่เรียง 123456 ตามไฟทีแนบมา

ช่วยชี้แนะ ด้วยครับ ถ้า ให้อยู่ในโค้ด vba เลยจะดีมาก

ลองพยายาม แก้ ใน vba แล้วครับ ไม่ได้ สักที่ แล้วลอง ใช้สูตร เข้าช่วย

ตอนนี้ sheet1 เรียงกันแล้ว โดย ใส่สูตร ในลอลัม A =IF(B2<>"",COUNTA($B$2:B2),"")

แต่ใน sheet2 ยังไม่ได้ครับ ใส้แล้วไม่ได้ตามต้องการ ช่วยชี้แนะหน่อยครับ

ขอบคุณ สำหรับ โค้ด และ คำแนะนำครับ

Sub DelCell()
Dim icount As Integer
Dim sh2Range As Range
'Keep original format
Worksheets("1").Range("A:E").Copy
Worksheets(3).Range("A:E").PasteSpecial xlPasteFormats
icount = Worksheets("1").Range("F65536").End(xlUp).Row
Do
If Worksheets("1").Cells(icount, "F") = "OK" Then
Worksheets ...

Sub test1()

Dim ws As Worksheet
Dim r As Integer
Dim rn As Range

Set ws = ActiveSheet

r = ws.Range("A" & ws.Rows.Count).End(xlUp).Row

Worksheets(1).Range("C15").Copy _
Worksheets(2).Range("A15")


Worksheets(1).Range("M15").Copy _
Worksheets(2).Range("K15")


Worksheets(1).Range("M20").Copy ...

ขอบคุณ ครับ... แล้วถ้าผมต้องการเปลียน จาก ลาออก คอลัม F มาเป็น คอลัม Q
และ copy , paste และ delete เปลียนมาเป็น B ถึง P ต้องแ่ก้ code ตรงไหนบ้าง ครับ

Sub DelCell()
Dim icount As Integer
Dim ws As Worksheet
Dim r As Integer
Dim rn As Range

Set ws = ActiveSheet

icount = Range("F65536").End(xlUp).Row
Do
If Worksheets("1").Cells(icount, "F") = "ลาออก" Then
Worksheets("1").Cells(icount, "F").EntireRow.Copy _
Worksheets("2").Cells(icount, "A ...

Sub DelCell()
Dim icount As Integer
icount = Range("F65536").End(xlUp).Row
Do
If Cells(icount, "F") = "ลาออก" Then
Cells(icount, "F").EntireRow.Delete
End If
icount = icount - 1
Loop Until icount = 1
End Sub

ตอนนี้ ได้แค่ ลบออก จาก sheet1 ครับ อยากให้copy ไป sheet 2 ด้วยครับ

และ อยากให้ตารางใน ...

sheet 1 เมื่อ พิมคำว่า ลาออก ใน คอลัม F แถวไหน ก็ตาม แถวนั้น จะหาย ไป แล้วจะถูกย้ายไปอยู่ ใน sheet 2

ตาม file ที่แนบมา

มี ข้อความ อยู่ ที่ A1 ถึง F1 , A2 ถึง F2 , A3 ถึง F3

ต้องการ ลบ B2 แล้ว A2 ถึง F2 ขอความหายทั้งหมด

จากนั้น A3 ถึง F3 เลือนขึ้นมาแท่น ช่วยหน่อยครับ

จะ copy ตัวเลข ใน B1 B5 C1 C5 จาก cheet1 ไปไว้ใน A2 A4 E2 E4 ของ cheet2 โดยกดปุ่ม button

มี 5 cheet ให้ปุ่ม button อยู่ทุก sheet มีโคดที่ง่ายกว่านี้มั้ยครับ มือใหม่



Sub Macro1()

Macro1 Macro

Range("B1").Select
Selection.Copy
Sheets(2).Select
Range("A2").Select
ActiveSheet.Paste ...

จะ copy ตัวเลข ใน B1 B2 B3 B4 จาก cheet1 ไปไว้ใน D1 D2 D3 D4 ของ cheet2 โดยกดปุ่ม button

มี 5 cheet ให้ปุ่ม button อยู่ทุก cheet มือใหม่ ครับ ไม่รู้จะเริ่มยังงัย