Problemer med formatering af celler

Hej tvc

prøv at læs her
http://www.eksperten.dk/spm/683327

mvh

mvhansen

mvhansen

Jeg har prøvet:

Sub ResetArk()
  Dim X As Long
  X = ActiveSheet.UsedRange.Rows.Count
End Sub

Det lader ikke til at løse problemet, desværre.

Mvh. TVC

Hej tvc
du har et spørsmål oppen, skal du ikke have lukket den.
hvis du har fået det til at virke
http://www.eksperten.dk/spm/684957

mvh

mvhansen

Jeg er ikke helt sikker på hvad der er dit problem. Jeg har ingen problemer med at ændre skrifttype på forskellige områder.

Hvis du bruger makrooptageren får du flg. kode hvor du kan bruge de parametre du vil ændre:

Cells.Select
With Selection.Font
        .Name = "Allegro BT"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("A1").Select

Denne (Cells.Select) ændrer på hele arket. Så du burde kunne definere dit område og ændre formateringen.

-> mvhansen

"hvis du har fået det til at virke http://www.eksperten.dk/spm/684957"

Jo det skal jeg. Jeg afventede blot et svar at give point til og det kom den 4. -samme dag som du skrev ovenstående ;-).

Med venlig hilsen

TVC

-> brynil

Det løser desværre ikke problemet, da fejlmeddelelsen for VBA'en til at crashe.

Jeg har fundet ud af at jeg kan løse det ved at formatere en celle til det format jeg ønsker og kopiere denne. Derefter har jeg markeret hele arket og anvendt indsæt special og valgt at indsætte formater - det virkede!

Hej tvc
Det er dig der skal be om et svar, så du kan give point.
Hvis du mener Kommentar har hjulpet dig.
Her har du et svar

mvh

mvhansen

Hej mvhansen

Det kan godt være det er mig der har pakket det lidt godt ind i en kommentar til spørgsmål http://www.eksperten.dk/spm/684957", men jeg beder faktisk om et svar fra Excelent som var den første der kom med en løsning.

"Excelent var først med et svar og en løsning så smider du et svar excelent?"

Jeg er ret sikker på at jeg altid afregner mine point i umiddelbar forlængelse af at jeg har modtaget et brugbart svar. Hvis du er af en anden opfattelse må du gerne gøre mig opmærksom på hvor det er du eller andre har følt sig snydt.

Nu skal dette ikke misforstås for jeg skriver dette i et positivt sind, så jeg er blot lidt forundret over din kritik af min afregning af point.

excelent lagde et svar 04/02-2006 20:22:46 og jeg afregnede dem igår den 5/2 2006. Det er efter min opfattelse en meget rimelig afregningstid?

Med venlig hilsen

TVC

P.S. På netop nærværende spørgsmål har jeg ikke kunne løse mit problem med nogle af de forslag der er kommet. Jeg har derimod selv løst problemet som forklaret i min kommentar ovenfor.

Jeg tager derfor mine point tilbage, som reglerne er her på siden (hvis andre er af en anden opfattelse må I lade mig høre).

Hej tvc
det var ikke sådan ment.
jeg tror ikke der er nogle der føler sig snydt,
hvis man ikke har givet brugbart svar,
skal man ikke have point
Håber at vi stadig kan hjælpe hianden i fremtiden

mvh

mvhansen

Hej mvhansen

undrede mig blot over din rykker vedr. spg. 684957 ;-)

Ingen sure miner 8-)

TVC

det er jeg glad for

mvh

mvhansen