Geef cel weer die meer dan X-aantal tekens bevat

[fredie]

Heren,

Ik ben opzoek naar het volgende:
onderstaand vind je mijn code die ik gebruik. Bij eindrijdoel moet hij mij de lijn van de cel weergeven waar het aantal karakters minder is dan 3. vb
cel J1 = 12 karakters
cel J2 ook cel J3 ook maar cel J4 heeft 1 karakter. dan zou hij bij Eindrijdoel 4 als uitkomst moeten hebben.

Sub NummersZoekenB()

Dim max As Integer
Dim zoekJe As String
Dim StartrijDoel As Long
Dim Eindrijdoel As Long
Worksheets("Prov tool").Activate
max = Range("A1").CurrentRegion.Rows.Count
  
  For i = 3 To max
  StartrijDoel = i
  Worksheets("Prov Tool").Activate
Range("A" & StartrijDoel).Select
    With Worksheets("Bundles").Range("J:J")
    Set c = .Find(Selection, LookIn:=xlValues)
    If c Is Nothing Then
       
        Do
            Worksheets("Prov Tool").Activate
            Range("A" & i).Copy
            Worksheets("Bundles").Activate
            Eindrijdoel = [B]????[/B]
            Range("J" & Eindrijdoel).PasteSpecial xlPasteValues
            
        Loop While Not c Is Nothing
    End If
End With
                        Next i

Worksheets("Bundles").Activate
Range("J11").Select

End Sub

 

[zapatr]

- Code moet je in berichten tussen code haken plaatsen.
- Wil je eens uitleggen (niet in codetaal) wat je met je macro precies wil doen, dan is een passend antwoord beter mogelijk.

 

[zapatr]

Je hebt vergeten je bestand toe te voegen, doe dat nog even aub.

 

[fredie]

Ik wil dus in een lijst, nummers onderaan de lijst plakken die op een ander tabblad staan, en dan enkel nummers die niet in de eerst genoemde lijst staan. Echter het probleem is dat onderaan de lijst (als ik met currentregion werk) een heel aantal cellen heb waar nu een 0 staat. Hij moet de nummer dus plakken onder het voorgaande nummer (dus hij moet de eerste rij vinden waar de waarde die erin staat meer dan 2 karakters bevat. Ben ik zo een beetje duidelijker. Bijgevoegd een sheet met de tabbladen. Hij moet dus uit sheet Prov Tool 32477 toevoegen in cel J14 van sheet Bundles.
Ik hoop dat dit duidelijker is.

greetzBekijk bijlage vraagje.xlsx

 

[zapatr]

Zie de bijlage.

 

[zapatr]

fredie,
is je vraag opgelost of zijn er nog problemen?

 

[VenA]

Is toch vaak hetzelfde op een forum zij vragen en komt er een passende oplossing doet het internet het niet meer of van de aardkloot verdwenen of,of, niet druk om maken:d

Misschien een kleine tip: zelf vind ik het prettiger lezen als er in gesprongen wordt in code. Dan zijn lusjes etc wat makkelijkere te lezen.

Sub NummersZoekenB()
Dim i As Integer
'Deze macro werd geschreven door Zapatr
Sheets("Bundles").Range("J12:J10000").ClearContents
With Sheets("Prov tool")
    For i = 3 To .Range("A" & .Rows.Count).End(xlUp).Row
    If Len(.Range("A" & i)) > 2 Then
        If WorksheetFunction.CountIf(Sheets("Bundles").Range("J12:J10000"), .Range("A" & i).Value) = 0 Then
            .Range("A" & i).Copy Sheets("Bundles").Range("J" & Sheets("Bundles").Range("J" & Rows.Count).End(xlUp).Row + 1)
        End If
    End If
    Next i
End With
End Sub

't is maar een idee.