Posts by vbanoob22

Hello again,

I hope its alright I post on this forum again. I have another question and you were so helpful last time. I am attempting to write another Macro that will copy certain columns form one worksheet into a specific column in another worksheet. The macro basically works, however it doesn't copy the values for 2 of the columns in the destination sheet. I will attach my workbook, as well as the code that I am running.

Here is my code:

Sub NavisionInvoice()


Dim x, y(), i As Long, ii As Long, iii As Long    
  Dim sSrc As Worksheet    
  Dim sDest As Worksheet


Set wSrc = ActiveWorkbook    
  Set sSrc = ActiveSheet    
  Set sSrc = Worksheets("Homework")    
  Set sDest = Worksheets("NavInv")


With Sheets("NavInv")


sDest.Range("C2", sDest.Range("C2").End(xlDown)).Clear      
  sSrc.Range("A4", sSrc.Range("A4").End(xlDown)).Copy      
  sDest.Range("C2").PasteSpecial xlPasteValues


sDest.Range("D2", sDest.Range("D2").End(xlDown)).Clear      
  sSrc.Range("C4", sSrc.Range("C4").End(xlDown)).Copy      
  sDest.Range("D2").PasteSpecial xlPasteValues            
 
  sDest.Range("E2", sDest.Range("E2").End(xlDown)).Clear      
  sSrc.Range("D4", sSrc.Range("D4").End(xlDown)).Copy      
  sDest.Range("E2").PasteSpecial xlPasteValues            
 
  sDest.Range("F2", sDest.Range("F2").End(xlDown)).Clear      
  sSrc.Range("B4", sSrc.Range("B4").End(xlDown)).Copy      
  sDest.Range("F2").PasteSpecial xlPasteValues            
 
  sDest.Range("G2", sDest.Range("G2").End(xlDown)).Clear      
  sSrc.Range("E4", sSrc.Range("E4").End(xlDown)).Copy      
  sDest.Range("G2").PasteSpecial xlPasteValues


End With


End Sub

As you can see, I have just repeated the same step over and over. It worked for the copy into columns C, D, and F. However, columns E and G did not copy. I don't know why it would only have worked for a couple of the columns. Can you please help me again?

Sick! This works perfectly. Thank you so much!

Hmmm good question I hadn't thought of that... Lets go with replace.

Sorry for the poor explanations/examples. Again I am very new to this. I have adjusted the example worksheet and reattached it for reference. To clarify. The rows highlighted in green in the "COPY FROM" sheet are to be copied, NOT cut, and then transferred into the "Final" sheet such that the final sheet is a smaller table. The criterion for the rows to be copied is that there is a nonzero value in Column A. Every row with a natural number in A should get copied, every row with a 0 in A should be left behind.

As an add on, the number of rows in the "COPY FROM" sheet will eventually get longer, so expanding the range to greater than A21 would be useful for me.

Thank you for taking the time to help a novice out!

Here is an attached workbook for reference. It is two sheets. The first sheet is the master list. the second sheet is what I would like the result to look like. I want to exclude rows with a 0 in a single cell.

Hello!

I'm VERY new to VBA, like, this is my first time trying to use it new. I have a sheet in excel (called Fedex) that is auto populated from a different sheet (invoice). I would like to copy entire rows from the fedex sheet that have a nonzero value in column A, such that in the new sheet I have a simple table of all items that have nonzero quantities. I have a module that is currently just copying the entire list into a new sheet, 0 rows included. Can someone please help me??

This is what I have currently (mostly just a copy from something online with some edits I tried to add to get it working):

Sub cpynpst()
Dim sh4 As Worksheet, sh5 As Worksheet, lr As Long, rng As Range
Set sh4 = Sheets("Fedex")
Set sh5 = Sheets("Sheet2")
For Each rng In sh4("A2:A")
If rng.Value <> 0 Then
lr = sh4.Cells(Rows.Count, 1).End(xlUp).Row
Set rng = sh4.Range("A2:A" & lr)
rng.EntireRow.Copy sh5.Cells(Rows.Count, 1).End(xlUp)(2)
End If
Next rng
End Sub

Thank you!