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

 

[myx2]

...

Beste,

ik wil inderdaad enkele cellen die in de geselecteerde rij liggen copy-pasten.

Sorry voor de onduidelijkheid.

 

[OctaFish]

Je bent niet helemaal duidelijk in wat je wilt. Een rij bestaat uit 256 cellen, een kolom uit 65536.... Wil je een rij kopieëren, dan selecteer je die prima met EntireRow. Iets vergelijkbaars heb je met kolommen: EntireColumn. Maar volgens mij wil je slechts dié cellen kopiëren die in de geselecteerde rij liggen, en niet de hele kolom. Bovendien kun je een hele kolom alleen vanuit de eerste rij plakken, omdat je anders teveel cellen plakt.