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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Identificér og hent del af tekststreng Af TheLibrarian i Excel 1 I går 16:49 I går 21:00
Ændre nuller til ovenstående tekst Af boro23 i Excel 4 20/11/202410:44 20/11/202412:08
HVIS med datoer Af HHA i Excel 6 20/11/202408:31 20/11/202412:51
Numerisk liste Af AND i Excel 8 19/11/202414:05 19/11/202423:31
Ændre nuller til ovenstående tal Af boro23 i Excel 3 19/11/202409:39 19/11/202411:51
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 går 20:49 pop up black friday Af Malm i Virus
I går 18:31 Hvor finder jeg en netværksdriver? Af jcr18 i Wifi
I går 16:49 Identificér og hent del af tekststreng Af TheLibrarian i Excel
I går 16:30 Smart vægt til fitness tracking Af Henrik i Fitness & Smartwatches
I går 08:08 touchpad virker ikke Af Malm i PC
White papers
Flere white papers »


Premium
Teaser billede
Vil købe tele-løsninger til det offentlige for 370 millioner kroner
Læs mere »
Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"
Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen
Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet
Se alle »
Computerworld
Teaser billede
Microsofts nye pc er ekstrem billig – men kan blive ekstrem sikker og fleksibel
Læs mere »
Test: Audi Q6 er en super fed SUV - men gør dig selv en tjeneste og kast flere penge efter den
Test: Prøv kun disse B&O-hovedtelefoner, hvis du har råd
Kæmpe datalæk på hospital: 750.000 patienters fortrolige data lækket
Se alle »
CIO
Teaser billede
Konsulenthus vil rulle Microsoft 365 Copilot ud til 200.000 ansatte
Læs mere »
Kæmpe-opgave for Danske Bank har banet vej for fuldautomatiseret migrering til cloud: Nu udbredes metoden i hele AWS
Stor sag mod Microsoft kan være på vej: Beskyldes for at låse Azure-kunder fast med ulovlige metoder
Microsofts store årlige event: De tre vigtigste nøglebudskaber fra Satya Nadella om Microsofts fremtid
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Tre Norlys-topchefer fratræder med omgående virkning: Internet-forretningen er udfordret - vil have mere fart i integrationen af Telia Danmark
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Se alle »
White paper
Teaser billede
Sådan får du overblik og beskytter dine cloudapplikationer
Læs mere »
SAP: Skab værdi og minimér omkostninger med effektiv dokumenthåndtering
Sådan gør du: Elektronisk dokumentudveksling i praksis
Sikkerhed uden grænser: Cisco Hypershield
Se alle »

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