MOVE DATA FROM SHEET 1 TO SHEET 2 BASED ON CONDITION USING SIMPLE VBA CODE

Опубликовано: 27 Январь 2021
на канале: Creative Learning by Ritesh

177

VBA Code Link :
https://drive.google.com/file/d/1CP8E...

Hello Dosto
Aaj hum seekhege ki hum ek sheet se dusri sheet pe data kaise move kar sakte hai excel main condition ke base be by using simple VBA code. This Video is very helpful agar aap koi software bana rahe hae jisme members ka data add kiya hai.

Agar video pasad aaye to
Like Share aur subscribe kar dena dosto.
Thank You

VBA Code (aap copy paste bhi kar sakte ho):

Sub movedata()

Dim A As Long
Dim B As Long
Dim C As Long

A = Worksheets("Sheet1").UsedRange.Rows.Count
B = Worksheets("Sheet2").UsedRange.Rows.Count

If B = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("sheet2").UsedRange) = 0 Then B = 0
End If

Set xRg = Worksheets("sheet1").Range("N1:N" & A)
On Error Resume Next
Application.ScreenUpdating = False
For C = 1 To xRg.Count
If CStr(xRg(C).Value) = "DEACTIVATED" Then
xRg(C).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & B + 1)
xRg(C).EntireRow.Delete
If CStr(xRg(C).Value) = "Done" Then
C = C - 1
End If
B = B + 1
End If
Next
Application.ScreenUpdating = True

End Sub