Offthefield
Gebruiker
- Lid geworden
- 27 apr 2005
- Berichten
- 369
Ik ben bezig met het ombouwen van een bestaand programma mbv selecteren items en tabblad zodat de gegevens daarheen gekopieert worden.
Als ik in de formule het bepaalde Tabblad aangeeft, gaat dat goed, maar nu wil een selectie maken uit Combobox C_Dir, deze plaatsen in veld A1,
deze MyDir noemen en deze mbv Mydir & vervangen in de formule, maar deze geeft de foutmelding : Fout1004, Methode range van object_global is mislukt
(Hieronder het deel waar de formule staat)
Ik weet niet waarom hij niet werkt, heeft iemand een idee?
Alvast bedankt voor het meedenken
Als ik in de formule het bepaalde Tabblad aangeeft, gaat dat goed, maar nu wil een selectie maken uit Combobox C_Dir, deze plaatsen in veld A1,
deze MyDir noemen en deze mbv Mydir & vervangen in de formule, maar deze geeft de foutmelding : Fout1004, Methode range van object_global is mislukt
(Hieronder het deel waar de formule staat)
Ik weet niet waarom hij niet werkt, heeft iemand een idee?
Alvast bedankt voor het meedenken
Code:
[A1] = C_Dir.Value
Mydir = [A1] '' Sheets("MO15").
''
'At least 1 row selected
If bSelected = True Then
"" DEZE ONDERSTAANDE REGEL WERKT GOED !!
With Sheets("MO15").Range("E2", Sheets("MO15").Cells(lRows + 1, 7 + lCols)) 'Transfer to range
"" DEZE ONDERSTAANDE REGEL WERKT NIET GOED !!
With Mydir & Range("E2", Mydir & Cells(lRows + 1, 7 + lCols)) 'Transfer to range
.Cells.Clear 'Clear transfer range