Jag har en liten "resultatlista" i ett excel-dokument.

Namn, klass, palcering, tid, klubb, land.

jag undrar alltså....
I kolumn "land", har jag då skrivit in t.ex. swe, nor, dan etc etc....

Men jag skulle vilja "ersätta" denna text med en liten bild (flagga) för resp. land.

Har någon nån idé, om hur det skulle gå till ??


Visst, skulle man kunna göra det manuellt.... dvs med "infoga bild...."

Men då det rör sig om ca 1700 pers.... blir det många "infoga"....
Dessutom blir det ju inte bra heller, eftersom bilderna inte då ligger fast i den cellen.
Ökar man t.ex. storleken i höjdled på cellerna, så följer inte bilderna med.
Detta är dock en parantes.


Alltså, någon som kan ge en lösning på att ersätta t.ex. swe med en svensk flagga (bild) ?!?!


// Mikke

Hej!

Det bästa hade varit någon form av länk, både till kolumn land och till rätt bild, men inget av detta går tyvärr. Nästa lösning är macro som lägger in rätt bild beroende på värdet i land. Nackdelen med denna lösning är ju att bilden uppdateras inte automatiskt om land ändras. Så här skulle en enkel kodsnutt se ut. Antag att du har bilder på fliken "flaggor" med namnen sweBild, norBild osv. Land i kolumn A och flaggornas läggs i kolumn B.

For i = fromIndex To toIndex
Sheets("flaggor").Shapes(Cells(i, 1) & "Bild").Copy
Cells(i, 2).Select
ActiveSheet.Paste
Next i

mvh
/Micahel

Hej!

Min iMail fungerar inte så du får mitt svar här:

Öppna vba-editorn (Alt-F11) och skriv koden jag angav ovan. Ange dessutom procedurnamn, så här:

Sub SkapaFlaggor()
... (koden)
End Sub

Vill du ta bort flaggorna skriver du så här: (obs! alla bilder i bladet raderas)
Sub Radera()
For Each flagga In ActiveSheet.Shapes
flagga.Delete
Next flagga
End Sub

Makrona kör du via verktyg-makro.

Lycka till
/Michael

Detta vill sig inte ,-(

Jag har Ett excel-dokument, med två flikar i.
En heter Resultat och det andra Flaggor.

i Resultat har jag :
klubb - kolumn A
land - kolumn B
placering - kolumn C
personnamn - kolumn D

i Flaggor har jag :
land (med namnet sweBild, norBild etc..) - kolumn A
flagga (dvs en bild) - kolumn B


Öppnar vba-editorn och skriver :

Sub SkapaFlaggor()

For i = fromIndex To toIndex
Sheets("flaggor").Shapes(Cells(i, 1) & "Bild").Copy
Cells(i, 2).Select
ActiveSheet.Paste
Next i

End Sub


::::

Sedan går jag in i Resultat-fliken och försöker köra makrot. via verktyg-makro.
Får då ett felmeddelande som inte säger mig nåt :-(

Alertbox med "400" i. inget mer...
se bild : http://mikke.aftevik.com/fel/400_fel.gif

Vad "gör" jag för fel tro....

// M

Hej!

Om du har land i kolumn B får du ändra till:
Sheets("flaggor").Shapes(Cells(i, 2) & "Bild").Copy
(1 är kolumna A, 2 kolumn B, osv)

fromIndex får du ändra till samma värde som översta raden (antagligen 2 om rubriken är på rad 1)
toIndex ändrar du till din sista rad med data.

Det har ingen betydelse i vilken kolumn du lägger flaggorna, bara de är korrekt namngivna. Det gör du genom att markera bilden och skriva in namnet i namnrutan uppe till vänster.

mvh
/Michael

bra, tack...

"till slut", så fick jag ihop det....

Var nog jag som inte riktigt fattade vissa "delar" först ;-)