muldertje2
Gebruiker
- Lid geworden
- 1 aug 2011
- Berichten
- 25
Hallo,
Ik ben bezig met het maken van een offerte programma in excel 2000. De gegevens worden ingevoerd in het blad "offerte". Vervolgens worden gegevens met behulp van een macro geexporteerd. Het blad dat geexporteerd wordt is afhankelijk van het nummer dat staat in I30 van het blad "offerte".
Wanneer in I30 het getal 11 staat, moet het werkblad met de naam "11" geselecteerd worden. Wanneer er het getal 14 staat moet het werkblad met de naam "14" geselecteerd worden. (blad "12" en blad "13" bestaan niet)
Met onderstaande code wordt het 11e werkblad geselecteerd wanneer in I30 het getal 11 staat.
Selection.Font.Bold = False
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Offerte").Select
Sheets(Range("I30").Value).Select
Range("A1:J" & Range("D65536").Offset.End(xlUp).Row).Select
Selection.Copy
Is het mogelijk om te selecteren op basis van de NAAM van het werkblad?
Dus blad "11" wanneer in I30 11 staat, en blad "15" wanneer in I30 15 staat.
Alvast bedankt
Ik ben bezig met het maken van een offerte programma in excel 2000. De gegevens worden ingevoerd in het blad "offerte". Vervolgens worden gegevens met behulp van een macro geexporteerd. Het blad dat geexporteerd wordt is afhankelijk van het nummer dat staat in I30 van het blad "offerte".
Wanneer in I30 het getal 11 staat, moet het werkblad met de naam "11" geselecteerd worden. Wanneer er het getal 14 staat moet het werkblad met de naam "14" geselecteerd worden. (blad "12" en blad "13" bestaan niet)
Met onderstaande code wordt het 11e werkblad geselecteerd wanneer in I30 het getal 11 staat.
Selection.Font.Bold = False
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Offerte").Select
Sheets(Range("I30").Value).Select
Range("A1:J" & Range("D65536").Offset.End(xlUp).Row).Select
Selection.Copy
Is het mogelijk om te selecteren op basis van de NAAM van het werkblad?
Dus blad "11" wanneer in I30 11 staat, en blad "15" wanneer in I30 15 staat.
Alvast bedankt