• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

VBA vom te combineren geeft een Ku-tools foutmelding

Status
Niet open voor verdere reacties.
R

Ropw

Gebruiker
Lid geworden
12 apr 2017
Berichten
192
Iemand een idee, waarom de macro blijft hangen op Windows("***oolsHelper.xlam").Visible = True ?
 

Bijlagen

  • test combineer.xlsm
    16,3 KB · Weergaven: 10
Zonder je bestand te bekijken, is je helper bestand wel geopend?
Weet niet precies waarvoor je het gebruikt maar zonder die tool moet het ook kunnen.
 
Laatst bewerkt:
ik heb idd al bij de opties gekeken, maar kan niet zien of het helpersbestand is geopend
 
eer gewaardeerde dank voor je poging, Heb a1:a3 geselecteerd, maar krijg geen enkel resultaat van je vba (uiteraard ** vervangen met de juiste letters).
je eerste idee was ook een goede optie om met tekst.samenvoegen het resultaat te verkrijgen. Alleen dan het met een geselcteerde tekst aan de gang gaat
(Voor de beeldvorming b.v. een kolom in de krant die ik wil overzetten naar een A4-tje met b.v. 80 karakters breed)
 
Het volgende zonder ***ools werkt voor me. Bedankt voor de moeite

HTML: 
[Sub CombineCells()
    Dim selectedRange As Range
    Dim cell As Range
    Dim combinedValue As String
    
    ' Controleer of er cellen zijn geselecteerd
    If Selection.Cells.Count < 1 Then
        MsgBox "Selecteer ten minste één cel om samen te voegen.", vbExclamation
        Exit Sub
    End If
    
    ' Stel de geselecteerde bereik in als de variabele 'selectedRange'
    Set selectedRange = Selection
    
    ' Loop door elke cel in het geselecteerde bereik
    For Each cell In selectedRange
        ' Controleer of de cel niet leeg is
        If cell.Value <> "" Then
            ' Voeg de waarde van elke cel samen met een spatie als scheidingsteken
            combinedValue = combinedValue & cell.Value & " "
        End If
    Next cell
    
    ' Verwijder het extra spatie-teken aan het einde van de samengevoegde waarde
    combinedValue = Trim(combinedValue)
    
    ' Plaats de samengevoegde waarde in de eerste cel van het geselecteerde bereik
    selectedRange.Cells(1).Value = combinedValue
    
    ' Verwijder de inhoud van de overige cellen in het geselecteerde bereik
    If selectedRange.Cells.Count > 1 Then
        selectedRange.Offset(1).Resize(selectedRange.Rows.Count - 1).ClearContents
    End If
    
    ' Geef een melding weer wanneer de samenvoeging is voltooid
    MsgBox "De cellen zijn samengevoegd naar één cel.", vbInformation
End Sub
/HTML]
 
Een simpele UDF

PHP: 
=F_snb(A1:A3)

Code: 
Function F_snb(sn)
  F_snb = Join(Application.Transpose(sn))
End Function
 
vriendelijk dank voor het verder puzzelen. Het schittert door zijn eenvoud. Maar ik ben al weer een stap verder en ben tevreden met de macro die ik (mbv chatGPT) gepubliceerd heb. In jouw functie zie ik wel dat a1:a3 vast staat, terwijl het variabel moet zijn, welke cellen ik heb geslecteerd. Maar ook daar had ik nog wel uitgekomen. mvrgr
 
In macrovorm:

Code: 
Sub M_snb()
  selection.cells(1)=join(application.transpose(selection))
  selection.offset(1).resize(selection.count-1)=""
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan