I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Sæt Kamera op på QAT (Quick Access Toolbar). Aktiver Ark1!A1 (cellen, ikke billedet). Tryk på Kamera. Peg med musen i øverste venstre hjørne af celle Ark2!D3.
Du kan ikke have billedet ind i cellen, men det kan godt "flyde" ovenpå.
VBA er ikke en af mine store kompetancer, EXCELENT lavede denne kode for nogle år siden. I et ark i celle AF19 findes en rulleliste. Via valget her hentes en blok fra ark PRO - nederst i denne blok (celle AF32) er en ny rulleliste til at hente den næste blok. I alle blokke "flyder" et billede.
Sub worksheet_change(ByVal Target As Range) If Intersect(Target, Range("AF19,AF32,AF45,AF58,AF71,")) Is Nothing Then Exit Sub On Error GoTo ud Application.EnableEvents = False rk = Mid(Target.Value, 15, 3) * 13 + 9 Sheets("pro").Range("A" & rk & ":AF" & rk + 12).Copy Cells(Target.Row + 1, 1) ud: Application.EnableEvents = True End Sub
For at billedet skal kunne overføres med en formel (....ark 2 i celle d3 skriver ='Ark1'!A1), skal det være indeholdt i cellen - og det KAN billeder ikke!
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.