09. oktober 2018 - 13:27Der er
6 kommentarer og 1 løsning
Overfør text fra celle ved siden af Checkbox i Excel
Jeg har et nedenstående kode, som flytter text fra cellen ved siden af Checkboxen til et andet ark i regnarket. Der virker nogenlunde, men hvis jeg fjerner krydser opdatterer den ikke.
Jeg har cirka 85 checkboxe, så måske der er en nemmere måde at gøre det på, i stedet for at lave 85 af dem?
Koden ser således ud:
Private Sub CheckBox8_Click() If CheckBox8.Value = True Then Sheets("Skabelon").Range("D30").End(xlUp).Offset(1, 0).Value = Sheets("Færdigheds&Vidensmål").Range("M7").Value If CheckBox8.Value = True Then Sheets("Skabelon").Range("E30").End(xlUp).Offset(1, 0).Value = "SAND" If CheckBox8.Value = True Then Sheets("Skabelon").Range("F30").End(xlUp).Offset(1, 0).Value = "Læsning" If CheckBox8.Value = False Then Sheets("Skabelon").Range("D30").End(xlUp).Offset(1, 0).Value = "" If CheckBox8.Value = False Then Sheets("Skabelon").Range("E30").End(xlUp).Offset(1, 0).Value = "" If CheckBox8.Value = False Then Sheets("Skabelon").Range("F30").End(xlUp).Offset(1, 0).Value = ""
Men umiddelbart må der være en nemmere måde at gøre det på. Evt et script der ser på
Grunden til, at den ikke opdaterer, når du fjerner markeringen i tjekboksen, er, at End(xlUp).Offset(1, 0) er forskellig ved klik nummer 2 i forhold til klik nummer 1. Helt nøjagtigt én række forskellig fra. Lad os sige, at det første klik finder række 10 i kolonne D. Denne udfylder du med værdien fra Sheets("Færdigheds&Vidensmål").Range("M7").Value. Ved klik nummer 2 finder End(xlUp).Offset(1, 0) så række nummer 11, fordi række nummer 10.Offset(1, 0) er cellen D11. Så jo, den sletter - men den sletter bare linjen under det, der ved første klik er blevet udfyldt. Din kode for at slette skal derfor ikke forskyde med en række.
Jeg tror umiddelbart, det bliver svært. Check-boksens placering er defineret ved en Left- og en Top-position, der ikke afslører noget om "nærmeste rækkenummer". Derudover er størrelsen defineret ved Height og Width, så den figur eller "Shape", der indeholder check-boksen, kan også risikere at overlappe flere celler.
Hvis jeg kendte dit ark og arbejdsgangen bedre, ville jeg sandsynligvis kunne komme med et forslag til noget smart.
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.