CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede bang16 Nybegynder
28. december 2007 - 01:10 Der er 5 kommentarer og
1 løsning

Udskrive bestemt celler - VBA

Jeg vil gerne udskrive bestemte celler i mit regneark, som skal bestemmes ud fra hvilken værdier, der bliver indtastet i "B8".

Står der f.eks. 100, så skal A100:D130 udskrives.

Står der 1300, så skal A1300:D1330 udskrives og så fremdeles.

Er der nogle der lige har svaret på dette - for mig - trælse problem? :o)
Avatar billede jkrons Professor
28. december 2007 - 01:38 #1
Hvis det altid er området fra 00 til 30 der skal udskrives altså 100:130, 200:230 osv. bør dette kunne klare det:

Sub UdskrivOmraade()
    a = Range("b8").Value
    ActiveSheet.PageSetup.PrintArea = "A" & a & ":A" & a / 100 & "30"
    ActiveSheet.PrintOut Copies:=1, Collate:=True
End Sub
Avatar billede jkrons Professor
28. december 2007 - 01:39 #2
Vrøvl. Ret til

  ActiveSheet.PageSetup.PrintArea = "A" & a & ":D" & a / 100 & "30"
Avatar billede excelent Ekspert
28. december 2007 - 01:51 #3
Sub test()
ActiveSheet.PageSetup.PrintArea = "A" & [B8] & ":D" & [B8] + 30
ActiveSheet.PrintOut
End Sub
Avatar billede bang16 Nybegynder
15. januar 2008 - 09:59 #4
Undskyld dette sene svar.

Men tak for hjælpen begge to. De virker jo ubeklageligt begge to, så smid lige begge et svar :o)
Avatar billede excelent Ekspert
15. januar 2008 - 15:46 #5
jeg står over denne gang
postede kun fordi jeg med jkrons kode prøvede med 5 i B8
som returnerede en fejl, men da den virker til dit formål
så tilfalder point jkrons :-)
Avatar billede jkrons Professor
15. januar 2008 - 19:06 #6
Her er et svar :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Stort udvalg af Excel kurser til alle niveauer og jobfunktioner
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Datodrilleri Af camsti i Excel 7 09/04/202513:24 09/04/202518:28
Linket tabeller Af rmadsen80 i Excel 1 08/04/202517:03 09/04/202507:24
Eliminer 4 ens cifre Af Dan Elgaard i Excel 13 07/04/202511:22 08/04/202515:50
Filnavn forslag ved brug af skabelon Af hbl i Excel 5 05/04/202517:27 07/04/202519:08
Fjern første karakter hvis den er / Af TheLibrarian i Excel 4 03/04/202511:23 03/04/202514:16
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 17:13 Summen af rækkens værdier Af OBS i Java
I dag 10:19 Flytte billeder fra "Hentet" (Mappe) til "Billeder" (Mappe) Af Ikke-ekspert i Linux
I går 19:47 Vejledning i god opbygning af program, erklæring af lister og modeller. Af Henrik_B i C#
I går 17:43 Kan må få windows til åbne filer i start Af mefa i Windows
I går 16:21 AbstractTabelModel Af OBS i Java
White papers
Flere white papers »


Premium
Teaser billede
Fire gode grunde til at Trumps toldkrig vil få iPhone-priserne til at falde i Danmark
Læs mere »
Her er planen: Derfor køber Schultz Fujitsus kommune-satsning - flere opkøb kan være på vej
KMD-topchef Thomas Jul advarer mod forhastet exit fra Microsoft: "Der er ikke et realistisk alternativ på nuværende tidspunkt"
Overblik: Får du den rigtige løn? Så meget tjener de danske it-faggrupper om måneden i gennemsnit
Se alle »
Computerworld
Teaser billede
Prøvekørt: VW ID.Buzz giver dig det bedste af to verdener
Læs mere »
Microsoft advarer Office-brugere: Nu gør du gør klogt i at opgradere til 365
Trump til verdens største chip-producent: Byg i USA eller betal 100 procent i told på alt
Test: Apples discount-iPad giver meget for pengene – men du bør vide, hvad det er du går glip af
Se alle »
CIO
Teaser billede
Danske virksomheder søger væk fra amerikanske tech-giganter: Mange vil skifte til tysk Microsoft-alternativ
Læs mere »
Microsoft hæver priserne på server-licenser: On-premise bliver op til 20 procent dyrere om få måneder
Microsoft bøjer sig for kritik fra brugere: Udskyder nedlukning af server-løsning i sidste øjeblik
Efter exit fra Stark Group: Her er top-CIO Pernille Genesers planer for fremtiden
Se alle »
Job & Karriere
Teaser billede
Den danske it-branche er på vagt: Hvad nu hvis Trump lukker for Microsoft 365 og AWS fra på mandag?
Læs mere »
Carsten advarede som it-sikkerhedschef om problemer og blev fyret: "Det endte med voksen-mobning af værste skuffe"
Microsoft fyrer de dårligst performende ansatte: Disse jobtitler bliver ramt
Danske it-folk lokkes med store tiltrædelses-bonusser: Nu kan du score mere end 100.000 kroner ved at skrive under på ny jobkontrakt
Se alle »
White paper
Teaser billede
Tidsbegrænset kampagne: Overvejer du at udskifte eller tilføje printere i din forretning? Vi kan tilbyde én eller flere maskiner gratis
Læs mere »
Sådan: Virtualisering uden vendor lock-in og høje omkostninger
Sådan sikrer du nem og beskyttet adgang til dine ressourcer
Sikkerhed gjort enkelt: Beskyt din virksomhed direkte i browseren
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »