Excel - VBA Geen EntireRow maar kolommen copy-paste

[myx2]

Beste,

Is het mogelijk om in plaats van EntireRow ook enkel kolommen te kopieren en plakken van de bijhorende rij?

Dus neem nu enkel kolom A - D - F

Ik heb nu onderstaande..

Sub GroterDanNul()
       
  Dim ExcelFile As String
   
    Dim c As Range
    
   Workbooks("Resource Planning V1.xls").Activate
 ExcelFile = Range("B5")
 
 If Dir("W:\" & ExcelFile & "") <> "" Then
  
        Workbooks.Open Filename:= _
        "W:\" & ExcelFile & ""
       
            With Sheets("Resources")
    
           For Each c In .Range("F4:F3000")
             If c.Value <> 0 Then
              Workbooks("Resource Planning V1.xls").Activate
            Sheets("Project Resources").Cells(Rows.Count, 20).End(xlUp).Offset(1).EntireRow.Value = c.EntireRow.Value
           End If
         Next c
        End With
  
  Else
  MsgBox "OPGELET !!!" & vbCrLf & vbCrLf & "De foldernaam is niet correct in kolom J ofwel heeft deze de verkeerde benaming gekregen.", vbOKOnly, "Error"
  End If
  
End Sub

Alvast bedankt om me hierdoorheen te helpen!

Mvg

 

[OctaFish]

Is hier ook al gepost.... Een regel is dat je een vraag maar in één forum stelt.

 

[myx2]

Is hier ook al gepost.... Een regel is dat je een vraag maar in één forum stelt.

Inderdaad mijn excuses hiervoor.

Ik wist niet meer goed onder welk onderdeel ik dit diende te plaatsen.
Zodus had ik het bij 'VBA' op de status opgelost geplaatst.