19. januar 2005 - 16:30Der er
4 kommentarer og 1 løsning
Command-button - hvilken celle er den tilknyttet
Hej Eksperter
Endnu engang har jeg brug for jeres uvurderlige hjælp.
Jeg har flere commandbuttons på samme ark, som er indstillet til "move with cells" i Format Control.
Kan jeg i VBA få at vide, hvilken celle den enkelte command-button er knyttet til?
Hver knap tilføjer en ny linie i et ellers låst ark - og jeg har behov for at vide, hvor jeg skal tilføje linien ved tryk på knappen - dvs. jeg kan faktisk nøjes med rækken.
Håber I kan hjælpe mig ! Jeg er tilbage i morgen tidelig.
Mit gæt er at du ikke kan gøre det, for hvis du opretter en knap i en celle, og derefter starter indspilningen af en ny makro, så vil du i denne makros kode ikke se nogen reference til cellen du oprettede knappen i.
Der er sikkert en anden måde at løse dit problem på, hvis du ville uddybe det.
du kan sætte denne linie ind i den makro knappen knappen er tilknyttet til og kopiere funktionen ind i et alm. makromodul.
lRække = WhichRowIsCalling(Application.Caller)
Function WhichRowIsCalling(AppCall) Dim y As Single, i As Long y = Shapes(AppCall).Top While i < 65536 i = i + 1 If Cells(i, 1).Top > y Then WhichRowIsCalling = i - 1 Exit Function End If Wend WhichRowIsCalling = "Fejl" End Function
Jeg har forsøgt at sætte koden ind i mit ark, men det giver en mismatch error på linien "y = Shapes(AppCall).Top", når jeg "debugger" og fører musen henover skriver den "Error 2023".
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.
