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.