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
IBM efter overtagelsen af 300 KMD-medarbejdere: "Vi har ikke planer om at indføre tryghedsaftaler"
Interview: IBM ønsker ikke at indføre tryghedsaftaler. Det er meldingen fra selskabets kommunikationschef, Benedicte Strøm, der understreger, at selskabet vil overholde sine forpligtelser over for de 300 KMD-ansatte, der overflyttes til virksomheden fra begyndelsen af oktober.
Computerworld
KMD tæt på milliardaftale med IBM: Klar til at outsource infrastruktur og hundredevis af medarbejdere
Ifølge Computerworlds oplysninger er KMD tæt på at outsource selskabets infrastruktur og driftsopgaver til IBM. Det betyder, at flere hundrede medarbejdere vil blive berørt af den flerårige aftale, som har en årlig værdi på omkring 500 millioner kroner.
CIO
Henrik Jeberg om at arbejde i Silicon Valley: "Er du dygtig nok får du tilbud der får en til at falde ned af stolen."
Henrik Jeberg bor i San Francisco og er direktør i Hampleton Partners, der rådgiver om opkøb med særligt fokus på teknologi. Hør ham fortælle om forskellen på Danmark og Silicon Valley - og om nogle af de vilde forhold der hersker i verdens ubestridte tech-hovedstad.
Job & Karriere
KMD opsagde tryghedsaftaler med medarbejderne få måneder før 300 medarbejdere blev outsourcet til IBM
KMD har i løbet af foråret opsagt to såkaldte tryghedsaftaler med en del af selskabets medarbejdere. Når aftalerne stopper ved udgangen af 2018, er de pågældende medarbejdere ikke længere berettiget til særlig godtgørelse. Det kan få konsekvenser, hvis IBM som forventet skærer i antallet af de 300 KMD-medarbejdere, som selskabet overtager.
White paper
Fire trin til øget cybersikkerhed på den digitale arbejdsplads
Organisationer af enhver størrelse er i konstant risiko for at blive udsat for cyberangreb, som potentielt kan ende med at koste millioner af kroner. I de kommende år vil reguleringer, som den nye EU-persondataforordning, kunne straffe virksomheder med gigantiske bøder, for utilstrækkelig sikring af deres systemer og data. Hvordan dette kan undgås, kan du læse mere om i dette whitepaper.