lurup Ekspert
14. marts 2018 - 00:58 Der er 18 kommentarer og
1 løsning

Slette 6 celler i start af en macro

Hej

Hvordan kan jeg starte en macro med at slette 6 celler ??
Det kunne være p4,p19,s4,s19,v4,v19
store-morten Ekspert
14. marts 2018 - 01:52 #1
Range("p4,p19,s4,s19,v4,v19").ClearContents
lurup Ekspert
14. marts 2018 - 10:07 #2
Hej Store-Morten  igen....TAK

Den skriver jeg ikke kan slette de nævnte celler da de er flettet ??
store-morten Ekspert
14. marts 2018 - 11:24 #3
Range("P4:Q4").Select
    Selection.ClearContents
store-morten Ekspert
14. marts 2018 - 11:45 #4
Flettede celler burde ikke findes ;-)
lurup Ekspert
14. marts 2018 - 13:06 #5
Ved det....

Jeg har stadig lidt problemer
Jeg kan se den makere de valgte celler men den sletter den ikke som ønsket ??

Sub IndsaetBilleder()


Range("a1:j10").Select
    Selection.ClearContents


On Error Resume Next
For Each c In Range("p4,p19,s4,s19,v4,v19").Cells

c.Offset(0, -13).Select
ActiveSheet.Pictures.Insert("C:\billeder\" & c.Value & ".jpg").Select


Selection.ShapeRange.LockAspectRatio = msoTrue 'bibeholder forholdet mellem højde og bredde på billedet
Selection.ShapeRange.Height = 120 'justeres så billedet får den rigtige størrelse


Next c

End Sub
lurup Ekspert
14. marts 2018 - 15:56 #6
Det er 6 billeder den skal slette...kan det være derfor ??
store-morten Ekspert
14. marts 2018 - 16:13 #7
Ja, det er det helt sikkert
store-morten Ekspert
14. marts 2018 - 16:36 #8
Er der flere en 6 billeder?
lurup Ekspert
14. marts 2018 - 16:52 #9
Max 6 billeder der er samme sted hver gang
store-morten Ekspert
14. marts 2018 - 17:03 #10
Sletter alle billeder:

      For Each Sh In ActiveSheet.Shapes
            If Sh.Type = msoPicture Then Sh.Delete
        Next Sh
Test i en kopi ;-)
lurup Ekspert
15. marts 2018 - 00:26 #11
Hej igen

Syntes ikke det virker...der sker ikke rigtig noget
lurup Ekspert
15. marts 2018 - 00:40 #12
Håber måske dette kan hjælpe på en løsing

Hvis jeg køre dette gør den det rigtige men det er ikke samme billede hver gang så der skal stå noget andet ????

Sub Makro2()
'
' Makro2 Makro
'

'
    ActiveSheet.Shapes.Range(Array("Picture 111")).Select
    Selection.Delete
End Sub
lurup Ekspert
17. marts 2018 - 18:18 #13
Tak for hjælpen......Lukker her da jeg ikke har fået en brugbar løsning og prøvet en andet sted..

TAK
store-morten Ekspert
18. marts 2018 - 05:24 #14
Kan denne "om døbe"  dine billeder:

Sub Rename_Picture()
On Error GoTo Err:
For i = 1 To 9999
If ActiveSheet.Shapes(i).Type = msoPicture Then
    ActiveSheet.Shapes(i).Name = "Picture " & i
End If
Next i
Err:
End Sub

Er der andre objekter i arket, knapper eller tegninger pile osv....?
lurup Ekspert
18. marts 2018 - 12:51 #15
Hej igen

Ja det virker fint med omdøb.

Det kan godt være andre ting / billeder på Arket som ikke må slettes.
kan det hjælpe hvis jeg med sikkerhed kan sige at de billeder der skal skiftes har nummere mellem 1 og 250.
Er der andre ting på arket der skal blive kan jeg kalder det noget anddet fx blomst.jpg
store-morten Ekspert
18. marts 2018 - 13:32 #16
Tror ikke billede navn og Picture xx hænger sammen.
Excel giver Picture fortløbene nr. så den er svær.

Sub Rename_Picture() tager det mindste Picture xx og omdøber til Picture 1.. og op efter, og da du har flere billeder, så dur det ikke.

Måske hvis du ved at det er de sidste indsætte billeder der skal slettes?
lurup Ekspert
18. marts 2018 - 13:46 #17
Det kan jeg ikke sige med sikkerhed da jeg kan indsætte et nyt logo eller stemings billede.

Jeg kan sige med sikkehed at det er fra nummer 1 til 250 ( elevnummer) eller det er fra celle A1:J10
store-morten Ekspert
18. marts 2018 - 13:49 #18
Kan du sende arket på mail?

Når jeg leger med billederne ligger de "flydene" på arket, ikke i celler.
lurup Ekspert
19. marts 2018 - 21:47 #19
Vil lige her sige 1000 tak for alt det Morten har hjulpet mig med her.....
Problemet er løst til UG..

Tak Morten
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

Opret Preview

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.

Du kan også logge ind via nedenstående tjenester





Premium
Facebook er virksomheden der kan eje verden, hvis den kommer helskindet igennem sin identitetskrise
Selvom Facebooks aktie er blevet sendt til tælling over sommeren, har den gode odds i fremtiden. Selvskabet har nemlig en unik evne til at navigere igennem kriser.
CIO
Forleden reparerede en mekaniker min bil: Det kostede 4.200 kroner, som min hjerne snød mig til at betale med et smil
De rationelle it-beslutninger du træffer er måske en illusion. Det lærte jeg da min bil gik i stykker og min hjerne snød mig til at tro, at alt var fint. Til gengæld fandt jeg tre fælder dine it-beslutninger kan falde i.
Job & Karriere
Her er syv job-annoncer der overrasker med helt usædvanlige overskrifter
Der er mange ledige it-job i øjeblikket. It-jobbank har her fundet syv spændende stillinger, der har det til fælles, at annoncen har en utraditionel overskrift.
White paper
Sådan flytter du din Dynamics løsning i skyen
I dette Whitepaper fokuseres der på hvordan din virksomheds eksisterende Dynamics CRM on-premise løsning kan flyttes i skyen til en Microsoft Dynamics 365 online platform, og hvilke fordele og ulemper der er ved det i forhold til On-premise. Der er i dag bred enighed om, at en online løsning er langt mere omkostningseffektiv og lettere at drifte samtidig med, at den giver betydelig flere fordele i forhold til funktionalitet. Hent dit Whitepaper i dag, og bliv klogere på de næste skridt i processen.