hallo zowel jouw probleem als dat van "confrater" Koeleman zou ik oplossen via een beetje
tekstsmanipulatie en een lusje
het moet vrij eenvoudig zijn om het adres van de eerste cel die je wil samenvoegen ergens in een
cel te plaatsen en in de cel daarnaast het adres van de eerste cel van de tweede reeks Verder neem
ik aan dat je met samenvoegen samentellen bedoelt: in een derde cel zeg je dan =indirect(ades1-e
cel)+indirect(adres 2-e cel) als je echt wil samenvoegen wordt die + een & opmerking zo ziet het
eruit in Excel maar ik neem aan dat in LO de verschillen klein zijn
je moet er wel voor zorgen dat je bij het "ineenknutselen" van je adres ergens rekening houdt met
een volgnummr (in je "teller") anders kan je geen lusje bouwen
groetjes
julien
Op 26-05-2021 18:40 schreef René Luijckx <plaater@gmail.com>:
Hoi allemaal,
In een werkblad wil ik in 2 kolommen, in niet opeenvolgende rijen, cellen
samenvoegen.
De rijen die er tussen liggen zijn niet van belang. Dat zijn er niet zoveel
en onnuttige informatie is eenvoudig handmatig te verwijderen.
Beide kolommen selecteren en samenvoegen zorgt er voor dat alles
samengevoegd wordt: denkfout.
Dus een macro opgenomen:
cel geselecteerd, shift-rechts, cel toegevoegd, rechter muisknop cellen
samenvoegen, pijl omlaag om naar de rij eronder te gaan.
Dit gaat eenmalig goed.
Bij uitvoeren van de macro komt de melding dat reeds samengevoegde niet
meer samen gevoegd kunnen worden.
Code van de macro bekeken: cellen staan absoluut gedefinieerd.
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = *"$F$18:$G$18"*
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "MoveContents"
args2(0).Value = true
dispatcher.executeDispatch(document, ".uno:MergeCells", "", 0, args2())
rem ----------------------------------------------------------------------
dim args3(1) as new com.sun.star.beans.PropertyValue
args3(0).Name = "By"
args3(0).Value = 1
args3(1).Name = "Sel"
args3(1).Value = false
Mhhh, hoe kan ik relatief maken t.o.v. huidige positie ?
Iemand een idee, of een macro die dat al kan ?
Bij voorbaat dank,
René.
--
Unsubscribe instructions: E-mail to users+unsubscribe@nl.libreoffice.org
Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette
List archive: https://listarchives.libreoffice.org/nl/users/
Privacy Policy: https://www.documentfoundation.org/privacy
--
Unsubscribe instructions: E-mail to users+unsubscribe@nl.libreoffice.org
Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette
List archive: https://listarchives.libreoffice.org/nl/users/
Privacy Policy: https://www.documentfoundation.org/privacy
Context
Privacy Policy |
Impressum (Legal Info) |
Copyright information: Unless otherwise specified, all text and images
on this website are licensed under the
Creative Commons Attribution-Share Alike 3.0 License.
This does not include the source code of LibreOffice, which is
licensed under the Mozilla Public License (
MPLv2).
"LibreOffice" and "The Document Foundation" are
registered trademarks of their corresponding registered owners or are
in actual use as trademarks in one or more countries. Their respective
logos and icons are also subject to international copyright laws. Use
thereof is explained in our
trademark policy.