Jurgen2807
Gebruiker
- Lid geworden
- 27 jul 2011
- Berichten
- 189
Hallo,
Kan iemand mij helpen?
Ik zou graag de data vanaf rij 3 van tabblad BRON over willen nemen op tabblad DOEL.
1. De waarden die worden overgenomen dienen hard te zijn
2. De waarden die 0 zijn dienen niet overgenomen te worden (lege cel).
LET OP:
1. Data die naar tabblad DOEL wordt overgezet wordt in een tabel gezet met naam Tabel5
2. Data in kolommen J t/m AG op tabblad BRON zijn allemaal tot stand gekomen d.m.v. formules
Ik had onderstaande code gemaakt, maar die werkt niet. Ik krijg de foutmelding "De marco kan niet worden uitgevoerd. De marco is wellicht niet beschikbaar in dit werkblad of alle macro's zijn mogelijk uitgeschakeld".
Alle marco's zijn ingeschakeld in het vertrouwenscentrum. Daar ligt het niet aan. Ik heb macro's ook op andere tabbladen en die werken wel.
Kan iemand mij helpen?
De code die ik zelf had gemaakt:
Sub KopieerBRONnaarDOEL()
Dim bronSheet As Worksheet
Dim doelSheet As Worksheet
Dim rij As Long, kolom As Long
Dim laatsteRij As Long, laatsteKolom As Long
Dim waarde As Variant
' Verwijzing naar de werkbladen
Set bronSheet = ThisWorkbook.Sheets("BRON")
Set doelSheet = ThisWorkbook.Sheets("DOEL")
' Bepaal de laatste rij en kolom met data vanaf cel B3
laatsteRij = bronSheet.Cells(bronSheet.Rows.Count, 2).End(xlUp).Row
laatsteKolom = bronSheet.Cells(3, bronSheet.Columns.Count).End(xlToLeft).Column
' Loop door rijen vanaf 3 en kolommen vanaf kolom 2 (B)
For rij = 3 To laatsteRij
For kolom = 2 To laatsteKolom
waarde = bronSheet.Cells(rij, kolom).Value
If waarde = 0 Then
doelSheet.Cells(rij, kolom).ClearContents
Else
doelSheet.Cells(rij, kolom).Value = waarde
End If
Next kolom
Next rij
MsgBox "Data is succesvol gekopieerd van BRON naar DOEL", vbInformation
End Sub
Kan iemand mij helpen?
Ik zou graag de data vanaf rij 3 van tabblad BRON over willen nemen op tabblad DOEL.
1. De waarden die worden overgenomen dienen hard te zijn
2. De waarden die 0 zijn dienen niet overgenomen te worden (lege cel).
LET OP:
1. Data die naar tabblad DOEL wordt overgezet wordt in een tabel gezet met naam Tabel5
2. Data in kolommen J t/m AG op tabblad BRON zijn allemaal tot stand gekomen d.m.v. formules
Ik had onderstaande code gemaakt, maar die werkt niet. Ik krijg de foutmelding "De marco kan niet worden uitgevoerd. De marco is wellicht niet beschikbaar in dit werkblad of alle macro's zijn mogelijk uitgeschakeld".
Alle marco's zijn ingeschakeld in het vertrouwenscentrum. Daar ligt het niet aan. Ik heb macro's ook op andere tabbladen en die werken wel.
Kan iemand mij helpen?
De code die ik zelf had gemaakt:
Sub KopieerBRONnaarDOEL()
Dim bronSheet As Worksheet
Dim doelSheet As Worksheet
Dim rij As Long, kolom As Long
Dim laatsteRij As Long, laatsteKolom As Long
Dim waarde As Variant
' Verwijzing naar de werkbladen
Set bronSheet = ThisWorkbook.Sheets("BRON")
Set doelSheet = ThisWorkbook.Sheets("DOEL")
' Bepaal de laatste rij en kolom met data vanaf cel B3
laatsteRij = bronSheet.Cells(bronSheet.Rows.Count, 2).End(xlUp).Row
laatsteKolom = bronSheet.Cells(3, bronSheet.Columns.Count).End(xlToLeft).Column
' Loop door rijen vanaf 3 en kolommen vanaf kolom 2 (B)
For rij = 3 To laatsteRij
For kolom = 2 To laatsteKolom
waarde = bronSheet.Cells(rij, kolom).Value
If waarde = 0 Then
doelSheet.Cells(rij, kolom).ClearContents
Else
doelSheet.Cells(rij, kolom).Value = waarde
End If
Next kolom
Next rij
MsgBox "Data is succesvol gekopieerd van BRON naar DOEL", vbInformation
End Sub