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
Guldkorn fra it-toppen: Det skal CIO'en fokusere på i 2019
Første del: Hvad skal stå øverst på din strategiske dosmerseddel i 2019? Er det i år, I skal igang med blockchain, eller er det måske på tide at få taget et alvorsord med topchefen om, hvordan it kan bidrage til forretningen? Computerworld har spurgt en række profiler fra it-toppen om, hvad de mener, at du skal have fokus på det kommende år.
CIO
Tag med på Computerworlds store lederkonference og mød de danske top-CIO'er, som bygger de nye it-afdelinger
Anvendelsen af digital teknologi og organiseringen af it-afdelinger er under radikal transformation. På konferencen Digitaliseringsledelse 2.0 kan du møde de CIO'er fra Bankdata, Adform og Rockwool, som står i spidsen for teknologi-adoptionen.
Job & Karriere
Efter blodrødt regnskab: Nu fyrer Atea 20 medarbejdere i Danmark
Atea fyrer nu 20 medarbejdere. Det sker som en direkte konsekvens af, at den danske forretning er under pres, oplyser selskabets direktør.
White paper
Ny undersøgelse: Her ligger forretningsværdien i print-sikkerhed
En undersøgelse fra IDC viser, at der for virksomheder er en solid business case i at prioritere sikkerhed på print, og ethvert it-initiativ der kan nedbringe omkostninger, er attraktivt for ledere. I undersøgelsen har IDC lavet dybdegående interviews med 16 organisationer, som bruger en entreprise printerløsning, og disse interviews viser at der ligger stor forretningsværdi i denne løsning. Organisationerne blev bedt om at beskrive forskellen på ”før” og ”efter” og det viser sig, at de har opnået et mere sikkert print-miljø, samtidig med at der spares både penge og tid.