• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

kopiëren plakken

Status
Niet open voor verdere reacties.
D

don42

Gebruiker
Lid geworden
25 apr 2014
Berichten
764
Beste helpers wie kan mij helpen met het volgende:

ik kopieer in een tabblad 7 kolommen van B t/m h
nu wil ik dat plakken in een blad met een andere Lay-out
met tekens 2 kolommen er tussen

Dus naar kolom B E H K N Q T van een ander werkblad
is dat mogelijk of moet ik elke kolom apart plakken

Don
 
Je kunt later toch twee kolommen invoegen?
 
wat meer uitleg

Ik wil graag de data van tabblad data kopiëren naar een andere excel file (gelijk aan tabblad 6)
alleen de namen
 

Bijlagen

  • Verlofboek 2020 voorbeeld.xlsm
    145,8 KB · Weergaven: 34
Ik zie het probleem niet zo. 7 kolommen?
 
Werkt dit?
Code: 
Sub Misschien()
Dim sh1 As Worksheet, sh2 As Worksheet, i As Long, j As Long, a As Long
Set sh1 = Worksheets("data")
Set sh2 = Worksheets("6")
j = 2
    For i = 2 To 8
        a = sh1.UsedRange.Columns(i).Offset(3).SpecialCells(2).Rows.Count
            sh2.Cells(5, j).Resize(a).Value = sh1.Cells(4, i).Resize(a).Value
        j = j + 3
    Next i
End Sub
 
Code: 
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Sub Of_Zo_Iets()
  sn = Sheets("Data").UsedRange.Offset(3).SpecialCells(2)
  sp = Sheets("6").Cells(5, 1).Resize(UBound(sn), 20)
  
  For jj = 1 To UBound(sn, 2)
    For j = 1 To UBound(sn)
       sp(j, Choose(jj, 2, 5, 8, 11, 14, 17, 20)) = sn(j, jj)
    Next
  Next
  
  Sheets("6").Cells(5, 1).Resize(UBound(sn), 20) = sp
End Sub
[/FONT]
 
dank voor het meedenken

Het gaat me zo niet lukken helaas
zal het nog eens proberen uit te leggen
in mijn voorbeeld heb ik tabblad data geplaatst, heb in werkelijkheid een file met 53 sheets (elke week van het jaar)
nu wil ik graag van de zeven kolommen de dagen van de week (van A2 t/m G50 kopiëren)
en dit plakken in een andere sheet
probleem is dat de data niet achter elkaar moet komen maar telkens 2 kolommen verder
dit ivm de lay-out
nu zou ik dus 365 keer een dag moeten plakken
hoop dat dit handiger kan



dus het gekopieerde moet van kolom A naar ook kolom A
het gekopieerde moet van kolom B naar kolom D
het gekopieerde moet van kolom C naar kolom G
het gekopieerde moet van kolom D naar kolom J
het gekopieerde moet van kolom E naar kolom M
het gekopieerde moet van kolom F naar kolom P
het gekopieerde moet van kolom G naar kolom R

Hoop dat deze uitleg iets meer duidelijk maakt
in de bijlagen nog een voorbeeldje

don
 

Bijlagen

  • plakken.xlsx
    10,8 KB · Weergaven: 19
Bedoel je zo?
Code: 
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Sub Of_Zo_Iets()
  sn = Blad1.UsedRange.Offset(1).SpecialCells(2)
  sp = Blad1.Cells(2, 11).Resize(UBound(sn), 21)
  
  For jj = 1 To UBound(sn, 2)
    For j = 1 To UBound(sn)
       sp(j, Choose(jj, 1, 4, 7, 10, 13, 16, 19)) = sn(j, jj)
    Next
  Next
  
  Blad1.Cells(2, 11).Resize(UBound(sn), 21) = sp
End Sub
[/FONT]
 
Of doorzoeken van alle sheets en dan alles in tabblad "Totaal" verzamelen
Code: 
Sub Zoals_Dit()
  For Each sh In Sheets
    If sh.Name <> "Totaal" Then
      sn = sh.UsedRange.Offset(1).SpecialCells(2)
      sp = Sheets("Totaal").Cells(Rows.Count, 11).End(xlUp).Resize(UBound(sn), 21)
      
      For jj = 1 To UBound(sn, 2)
        For j = 1 To UBound(sn)
           sp(j, Choose(jj, 1, 4, 7, 10, 13, 16, 19)) = sn(j, jj)
        Next
      Next
      
      Sheets("Totaal").Cells(Rows.Count, 11).End(xlUp).Offset(1).Resize(UBound(sn), 21) = sp
    End If
  Next
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan