Help in upload data from sheet to sheet VBA Code

[jawaharprm]

Hi All,

i have done a VBA code for bulk upload and its is working fine.

But i need only help req this, data should upload in "data sheet" if all only all columns are to filled other wise it should have pop msg box pls help on this i have uploaded file for your reference and code in below.

>>> as many times noted <<<
>>> use code - tags <<<

Option Explicit

Sub copy_paste()

Dim lRow, lRow1 As Long

Application.ScreenUpdating = False


lRow = [Sheet2].Cells(Rows.Count, 1).End(xlUp).Row
lRow1 = [Sheet3].Cells(Rows.Count, 1).End(xlUp).Row + 1

    [Sheet2].Range("A4:M" & lRow).Copy
    [Sheet3].Range("A" & lRow1).PasteSpecial xlPasteValues
   
    Application.CutCopyMode = False
   
    Sheet3.Select
    [Sheet3].Range("A1").Select
    Sheet2.Select
    [Sheet2].Range("A1").Select
       
End Sub

 

[vletm]

jawaharprm
What would You mean if all only all columns are to filled?
At least one row has filled with headers.
What should copy and paste with Your sample file?
jawaharprm
Seems You skipped my the last question,
maybe someone else will guess.

 

[jawaharprm]

Hi Sir,

Data has to copy and past if only all the columns are filled,

if any columns left blank it should not filled

 

[Marc L]

Hi,​

​

as a reminder : with smart worksheets - aka with exactly same headers - that just needs around five codelines​

just using an easy Excel basics advanced filter …​

​

 

[jawaharprm]

Hi Sir,

what i need is if all column are updated data can upload in "data sheet", otherwise need a error msg

 

[Marc L]

A VBA demonstration for starters :​

Sub Demo1()
    With Sheet2.[A3].CurrentRegion.Rows
        If Application.CountBlank(.Cells) Then Beep Else .Item("2:" & .Count).Copy Sheet3.Cells(Rows.Count, 1).End(xlUp)(2)
    End With
End Sub

Do you like it ? So thanks to click on bottom right Like !​

​

 

[jawaharprm]

Hi Sir,

Thanks your time, included in my code, thanks v much..