Jag sökt utan lycka efter lösning på mitt problem men inte hittat nått som passar... Jag är en riktig nybörjare på VBA och kodknackning så är tacksam om ni "dumb it down" lite =)

Jag har en kollumn med textdata, som kommer fyllas på och ändras i efterhand. Jag vill, när jag trycker på en "knapp" att en cell i taget skall redovisas i en textruta på ett annat blad.

Får det att funka med en msgbox om jag är på samma blad som datan men inte om jag är på ett annat blad (där knappen och textrutan är)

Har testat: For each loop men inte fått det att funka. Det ända som händer är att sista raden visas...

Här är lite kluddkod jag testat:

Dim ws As Worksheet
Dim tabellomr As Range
Dim antal As Long

Set ws = Worksheets("Blad1")
antal = ws.Range("a1").End(xlDown).Row
Set tabellomr = ws.Range("a1:a" & antal)

For Each cell In tabellomr
    'If cell = 1
   
Then Worksheets("Blad3").Shapes("textruta 1").TextFrame.Characters.Text = tabellomr(cell, 1)

   

'MsgBox tabellomr(slump, 1)


Next cell
End Sub
 

FYI - Jag vet hur man kopplar markro till figurer så de har jag lurat ut själv

Någon som har lust att hjälpa mig? vore otroligt tacksam.

Tack för ditt svar!

cell = 1 var bara ett test för att se vad som hände. Men hade inte klurat ut cell.row än så stort tack för det!

 Ok har hittat en wait- funktion tror jag men skulle behöva en kontroll så att looparna sker steg för steg.... får se om jag hittar en fiffig ”IF”. Har du nån i tanken så är jag supertacksam! 

Tack för din hjälp Christian!