Oorspronkelijk geplaatst op: 12 mei 2014

In een rij staan in diverse cellen dubbele waarden. We willen echter alleen unieke waarden hebben. De functie zorgt er voor dat die dubbele waarden worden genegeerd en het resultaat in één cel wordt gezet waarbij de waarden door een komma worden gescheiden.

Function Dubbels(Target As Range, q As Boolean) As String
Dim rngCell As Range
Dim Resultaat As String

Resultaat = Empty

For Each rngCell In Target
If Not rngCell = Empty Then
    If q = False Then
        If Resultaat = Empty Then
            Resultaat = rngCell
        Else
            Resultaat = Resultaat & ", " & rngCell
        End If
    Else
        If InStr(Resultaat, rngCell) = 0 Then
            If Resultaat = Empty Then
                Resultaat = rngCell
            Else
                Resultaat = Resultaat & ", " & rngCell
            End If
        End If
    End If
End If
Next rngCell

Dubbels = Resultaat
End Function

Function Dubbels(Target As Range, q As Boolean) As String
Dim rngCell As Range
Dim Resultaat As String

Resultaat = Empty

For Each rngCell In Target
If Not rngCell = Empty Then
    If q = False Then
        If Resultaat = Empty Then
            Resultaat = rngCell
        Else
            Resultaat = Resultaat & ", " & rngCell
        End If
    Else
        If InStr(Resultaat, rngCell) = 0 Then
            If Resultaat = Empty Then
                Resultaat = rngCell
            Else
                Resultaat = Resultaat & ", " & rngCell
            End If
        End If
    End If
End If
Next rngCell

Dubbels = Resultaat
End Function

Oorspronkelijk geplaatst op: 12 mei 2014

Er zijn veel manieren om bereiken te selecteren. Hier een aantal voorbeelden.

– Gegevens staan in kolom C, beginnen vanaf cel [C1] én zijn aaneengesloten.
Selecteren met deze code:

Range("C1", Range("C1").End(xlDown)).Select

Range("C1", Range("C1").End(xlDown)).Select

– Gegevens staan in kolom C, beginnen vanaf cel [C1] én zijn NIET aaneengesloten.
Selecteren met deze code:

Range("c1", Range("C1048576").End(xlUp)).Select

Range("c1", Range("C1048576").End(xlUp)).Select

– Gegevens staan in bereik A1:D10, zijn aaneengesloten én de actieve cel bevindt zich in dat bereik namelijk B4.
Alle cellen vanaf actieve cel (B4) naar beneden en naar rechts selecteren met deze code:

Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Select

Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Select

Oorspronkelijk geplaatst op: 13 mei 2014

In Excel kun je op drie manieren gegevens importeren uit een tekstbestand:

Je kunt het tekstbestand openen in Excel of je kunt een tekstbestand importeren als een extern gegevensbereik.
Gegevens | Van tekst

Je kunt gegevens van Excel exporteren naar een tekstbestand met de opdracht Opslaan als.

De twee, meest gebruikte indelingen voor tekstbestanden zijn:

Tekstbestanden met scheidingstekens (TXT-bestanden), waarin de afzonderlijke tekstvelden zijn gescheiden door een tab (ASCII-tekencode 009).
Tekstbestanden met door een komma of puntkomma gescheiden waarden (CSV-bestanden), waarin de afzonderlijke tekstvelden zijn gescheiden door een komma (,) of puntkomma(;).
Je kunt voor TXT- en CSV-bestanden een ander scheidingsteken kiezen, wat nodig kan zijn als je de gegevens op jouw manier wilt importeren of exporteren.

Let op ! ! !

Je kunt maximaal 1.048.576 rijen en 16.384 kolommen importeren of exporteren.

Je kunt een CSV bestand ook inlezen middels een macro:

Sub Lees_CSV_Bestand()
Dim lngBestandNr As Long, lngRij As Long, varRij As Variant
Dim strTotaal As String, strRijen() As String, strVeld() As String
 
    'Freefile geeft als resultaat een integer met het volgende
    'bestandsnummer dat voor de instructie Open kan worden gebruikt.
    lngBestandNr = FreeFile
    
    'Open het juiste bestand. Let op de locatie.
    Open "C:\temp\test.csv" For Binary As #lngBestandNr
    
    'De Space functie geeft als resultaat een Tekenreeks
    'die bestaat uit het opgegeven aantal spaties in LOF
    'LOF betekent Lenght Of File
    strTotaal = Space(LOF(lngBestandNr))
    
    'Leest gegevens
    Get #lngBestandNr, , strTotaal
    
    'Sluiten
    Close #lngBestandNr
    
    'Let op ! ! !
    'Gebruik Chr(10), Chr(13), vbCr, vbLf, vbCrLf, of vbNewLine
    'Al naar gelang waarmee de rij eindigt. Rijen worden gesplitst
    strRijen = Split(strTotaal, vbCr) '< < < hier bijv. vbCr
    
    'Foutafhandeling uitschakelen
    On Error Resume Next
    For Each varRij In strRijen
        
        'Let op ! ! ! de zogenaamde delimiter
        'Kan zijn , of ; De velden worden gesplitst
        strVeld = Split(varRij, ",") '< < < hier bijv. de komma
        lngRij = lngRij + 1
        
        'Gegevens wegschrijven naar cel
        Cells(lngRij, "A").Resize(, UBound(strVeld) + 1) = strVeld
    Next
    
    'Foutafhandeling weer inschakelen
    On Error GoTo 0
End Sub

Sub Lees_CSV_Bestand()
Dim lngBestandNr As Long, lngRij As Long, varRij As Variant
Dim strTotaal As String, strRijen() As String, strVeld() As String
 
    'Freefile geeft als resultaat een integer met het volgende
    'bestandsnummer dat voor de instructie Open kan worden gebruikt.
    lngBestandNr = FreeFile
    
    'Open het juiste bestand. Let op de locatie.
    Open "C:\temp\test.csv" For Binary As #lngBestandNr
    
    'De Space functie geeft als resultaat een Tekenreeks
    'die bestaat uit het opgegeven aantal spaties in LOF
    'LOF betekent Lenght Of File
    strTotaal = Space(LOF(lngBestandNr))
    
    'Leest gegevens
    Get #lngBestandNr, , strTotaal
    
    'Sluiten
    Close #lngBestandNr
    
    'Let op ! ! !
    'Gebruik Chr(10), Chr(13), vbCr, vbLf, vbCrLf, of vbNewLine
    'Al naar gelang waarmee de rij eindigt. Rijen worden gesplitst
    strRijen = Split(strTotaal, vbCr) '< < < hier bijv. vbCr
    
    'Foutafhandeling uitschakelen
    On Error Resume Next
    For Each varRij In strRijen
        
        'Let op ! ! ! de zogenaamde delimiter
        'Kan zijn , of ; De velden worden gesplitst
        strVeld = Split(varRij, ",") '< < < hier bijv. de komma
        lngRij = lngRij + 1
        
        'Gegevens wegschrijven naar cel
        Cells(lngRij, "A").Resize(, UBound(strVeld) + 1) = strVeld
    Next
    
    'Foutafhandeling weer inschakelen
    On Error GoTo 0
End Sub

Test bestand:
https://www.dropbox.com/s/wmtt5rn3kl1j4sw/test.csv

Oorspronkelijk geplaatst op: 13 mei 2014

Je wilt rijen verwijderen waarvan de kolommen B, C én D géén gegevens bevatten.

De volgende code zorgt daarvoor. In dit voorbeeld worden alleen de rijen 3 en 7 verwijderd want die bevatten in én kolom B én C én D geen gegevens.

Sub Verwijder_Rijen_Indien_Geen_Waarde_In_Kolommen_B_C_D()
Dim Laatste_Rij As Long
    Laatste_Rij = Cells(Rows.Count, "A").End(xlUp).Row
    Range("B1:B" & Laatste_Rij) = Evaluate(Replace _
    ("IF(B1:B@&C1:C@&D1:D@="""",""#N/A"",IF(B1:B@="""","""",B1:B@))", "@", Laatste_Rij))
    On Error Resume Next
    Columns("B").SpecialCells(xlConstants, xlErrors).EntireRow.Delete
    If Err.Number = 1004 Then
        MsgBox "Er zijn geen rijen gevonden" & Chr(13) _
        & "die aan de criteria voldoen!"
    End If
    On Error GoTo 0
    Err.Clear
End Sub

Sub Verwijder_Rijen_Indien_Geen_Waarde_In_Kolommen_B_C_D()
Dim Laatste_Rij As Long
    Laatste_Rij = Cells(Rows.Count, "A").End(xlUp).Row
    Range("B1:B" & Laatste_Rij) = Evaluate(Replace _
    ("IF(B1:B@&C1:C@&D1:D@="""",""#N/A"",IF(B1:B@="""","""",B1:B@))", "@", Laatste_Rij))
    On Error Resume Next
    Columns("B").SpecialCells(xlConstants, xlErrors).EntireRow.Delete
    If Err.Number = 1004 Then
        MsgBox "Er zijn geen rijen gevonden" & Chr(13) _
        & "die aan de criteria voldoen!"
    End If
    On Error GoTo 0
    Err.Clear
End Sub

Oorspronkelijk geplaatst op: 15 mei 2014

Het probleem is het volgende.
Er staan gegevens in een cel en de opmaak van de cel staat op tekst terugloop ingesteld. Hierdoor staan er meerdere regels gegevens in 1 cel. Deze gegevens wil je splitsen naar andere cellen. Dit is een voorbeeld van de situatie:

Sla het bestand op als temp.csv, in de lokatie:
C:\temp\temp.csv
Let op ! ! ! Bestandsextensie is dus .csv.
Je krijgt dan het volgende bestand als je dit opent in de gratis te downloaden tekstverwerker Notepad++

Neem onderstaande code op in een nieuwe werkmap

Let op ! ! ! TEST eerst in een kopie van je werkmap. Je weet nooit of het mis gaat en dan ben je je gegevens kwijt
1. Kopieer de onderstaande code
2. Open een nieuwe werkmap
3. Druk op de toetscombinatie ALT + F11 om de Visual Basic Editor te openen
4. Druk op de toetscombinatie ALT + N om het menu Invoegen te openen
5. Druk op M om een standaard module in te voegen
6. Daar waar de cursor knippert voeg je de code in middels Ctrl + V
7. Druk op de toetscombinatie ALT + Q om de Editor af te sluiten en terug te keren naar Excel
8. Druk op de toetscombinatie ALT + F8 om de Macro Dialoog te tonen. Dubbeklik op de macro naam om te starten.

Sub Lees_CSV_Bestand()
Dim lngBestandNr As Long, lngRij As Long, varRij As Variant
Dim strTotaal As String, strRijen() As String, strVeld() As String
 
 
    'Freefile gives an integer
    lngBestandNr = FreeFile
    
    'Open the right file, watch location ! ! !
    Open "C:\temp\temp.csv" For Binary As #lngBestandNr
    
    'Space function gives a string with spaces.
    strTotaal = Space(LOF(lngBestandNr))
    
    'Read the dataset
    Get #lngBestandNr, , strTotaal
    
    'Close
    Close #lngBestandNr
    
    'Pay attention ! ! !
    'Use Chr(10), Chr(13), vbCr, vbLf, vbCrLf, of vbNewLine
    'Depends what character is used for end of line
    strRijen = Split(strTotaal, vbCrLf) '< < < here use vbCrLf just like in the screen above
    
    'Error handling off
    On Error Resume Next
    lngRij = 1
    x = 1
    
    For Each varRij In strRijen
        'Write data to worksheet cells.
        Cells(lngRij, x) = varRij 'varRij.Resize(, UBound(strVeld) + 1) = strVeld
        x = x + 1
        If x = 7 Then
            x = 1
            lngRij = lngRij + 1
        End If
    Next
    
    'Error handling on.
    On Error GoTo 0
End Sub

Sub Lees_CSV_Bestand()
Dim lngBestandNr As Long, lngRij As Long, varRij As Variant
Dim strTotaal As String, strRijen() As String, strVeld() As String
 
 
    'Freefile gives an integer
    lngBestandNr = FreeFile
    
    'Open the right file, watch location ! ! !
    Open "C:\temp\temp.csv" For Binary As #lngBestandNr
    
    'Space function gives a string with spaces.
    strTotaal = Space(LOF(lngBestandNr))
    
    'Read the dataset
    Get #lngBestandNr, , strTotaal
    
    'Close
    Close #lngBestandNr
    
    'Pay attention ! ! !
    'Use Chr(10), Chr(13), vbCr, vbLf, vbCrLf, of vbNewLine
    'Depends what character is used for end of line
    strRijen = Split(strTotaal, vbCrLf) '< < < here use vbCrLf just like in the screen above
    
    'Error handling off
    On Error Resume Next
    lngRij = 1
    x = 1
    
    For Each varRij In strRijen
        'Write data to worksheet cells.
        Cells(lngRij, x) = varRij 'varRij.Resize(, UBound(strVeld) + 1) = strVeld
        x = x + 1
        If x = 7 Then
            x = 1
            lngRij = lngRij + 1
        End If
    Next
    
    'Error handling on.
    On Error GoTo 0
End Sub

En je krijgt dit als resultaat. De gegevens staan nu in de cellen A1:F1:

Oorspronkelijk geplaatst op: 15 mei 2014

De onderstaande zogenaamde “User Defined function” oftewel een zelfgemaakte functie, splitst de gegevens die in 1 cel staan en meerdere regels omvat. Kijk ook even bij dit bericht:

Opzet:
– Je gegevens staan in kolom A.
– Je splitst de gegevens naar de naastliggende cellen, dus C1:H1, C2:H2, C3:H3 etc.
– Je krijgt dan als resultaat zoals je het op de afbeelding ziet.

Function Split_It_Up(rngBereik As Range, RijNummer)
    
    'Altijd herberekenen
    Application.Volatile
    
    a = InStr(1, rngBereik.Value, Chr(10), 1)
    b = InStr(a + 1, rngBereik.Value, Chr(10), 1)
    c = InStr(b + 1, rngBereik.Value, Chr(10), 1)
    d = InStr(c + 1, rngBereik.Value, Chr(10), 1)
    e = InStr(d + 1, rngBereik.Value, Chr(10), 1)
    If RijNummer = 1 Then Split_It_Up = Left(rngBereik.Value, a - 1)
    If RijNummer = 2 Then Split_It_Up = Mid(rngBereik.Value, a + 1, (b) - (a + 1))
    If RijNummer = 3 Then Split_It_Up = Mid(rngBereik.Value, b + 1, (c) - (b + 1))
    If RijNummer = 4 Then Split_It_Up = Mid(rngBereik.Value, c + 1, (d) - (c + 1))
    If RijNummer = 5 Then Split_It_Up = Mid(rngBereik.Value, d + 1, (e) - (d + 1))
    If RijNummer = 6 Then Split_It_Up = Right(rngBereik.Value, Len(rngBereik.Value) - e)
End Function
De formules:
[C1] =Split_It_Up($A1;KOLOM(A1))
[D1] =Split_It_Up($A1;KOLOM(B1))
[E1] =Split_It_Up($A1;KOLOM(C1))
[F1] =Split_It_Up($A1;KOLOM(D1))
[G1] =Split_It_Up($A1;KOLOM(E1))
[H1] =Split_It_Up($A1;KOLOM(F1))

'Vervolgens rij selecteren en naar beneden kopiëren.

Function Split_It_Up(rngBereik As Range, RijNummer)
    
    'Altijd herberekenen
    Application.Volatile
    
    a = InStr(1, rngBereik.Value, Chr(10), 1)
    b = InStr(a + 1, rngBereik.Value, Chr(10), 1)
    c = InStr(b + 1, rngBereik.Value, Chr(10), 1)
    d = InStr(c + 1, rngBereik.Value, Chr(10), 1)
    e = InStr(d + 1, rngBereik.Value, Chr(10), 1)
    If RijNummer = 1 Then Split_It_Up = Left(rngBereik.Value, a - 1)
    If RijNummer = 2 Then Split_It_Up = Mid(rngBereik.Value, a + 1, (b) - (a + 1))
    If RijNummer = 3 Then Split_It_Up = Mid(rngBereik.Value, b + 1, (c) - (b + 1))
    If RijNummer = 4 Then Split_It_Up = Mid(rngBereik.Value, c + 1, (d) - (c + 1))
    If RijNummer = 5 Then Split_It_Up = Mid(rngBereik.Value, d + 1, (e) - (d + 1))
    If RijNummer = 6 Then Split_It_Up = Right(rngBereik.Value, Len(rngBereik.Value) - e)
End Function
De formules:
[C1] =Split_It_Up($A1;KOLOM(A1))
[D1] =Split_It_Up($A1;KOLOM(B1))
[E1] =Split_It_Up($A1;KOLOM(C1))
[F1] =Split_It_Up($A1;KOLOM(D1))
[G1] =Split_It_Up($A1;KOLOM(E1))
[H1] =Split_It_Up($A1;KOLOM(F1))

'Vervolgens rij selecteren en naar beneden kopiëren.

Vervolgens rij selecteren en naar beneden kopiëren.

Oorspronkelijk geplaatst op: 16 mei 2014

Alle bestanden in een bepaalde map weergeven op en werkblad.

Deze is eenvoudig

Let op ! ! ! TEST eerst in een kopie van je werkmap. Je weet nooit of het mis gaat en dan ben je je gegevens kwijt
1. Kopieer de onderstaande code
2. Open een nieuwe werkmap
3. Druk op de toetscombinatie ALT + F11 om de Visual Basic Editor te openen
4. Druk op de toetscombinatie ALT + N om het menu Invoegen te openen
5. Druk op M om een standaard module in te voegen
6. Daar waar de cursor knippert voeg je de code in middels Ctrl + V
7. Druk op de toetscombinatie ALT + Q om de Editor af te sluiten en terug te keren naar Excel
8. Druk op de toetscombinatie ALT + F8 om de Macro Dialoog te tonen. Dubbeklik op de macro naam om te starten.

Sub Alle_Bestandsnamen_Weergeven()
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim ws As Worksheet
    
    'Verwijzing naar Scripting.FileSystemObject
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    'Werkblad toevoegen
    Set ws = Worksheets.Add
    
     'Verkrijg het map object dat geassocieerd is met de directory
    Set objFolder = objFSO.GetFolder("C:\windows") '<<< Geef een directory op
    ws.Cells(1, 1).Value = "De bestanden gevonden in " & objFolder.Name & " zijn:"
    
     'Doorloop de bestanden collectie
    For Each objFile In objFolder.Files
        ws.Cells(ws.UsedRange.Rows.Count + 1, 1).Value = objFile.Name
    Next
    
     'Opruimen!
    Set objFolder = Nothing
    Set objFile = Nothing
    Set objFSO = Nothing
    
End Sub

Sub Alle_Bestandsnamen_Weergeven()
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim ws As Worksheet
    
    'Verwijzing naar Scripting.FileSystemObject
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    'Werkblad toevoegen
    Set ws = Worksheets.Add
    
     'Verkrijg het map object dat geassocieerd is met de directory
    Set objFolder = objFSO.GetFolder("C:\windows") '<<< Geef een directory op
    ws.Cells(1, 1).Value = "De bestanden gevonden in " & objFolder.Name & " zijn:"
    
     'Doorloop de bestanden collectie
    For Each objFile In objFolder.Files
        ws.Cells(ws.UsedRange.Rows.Count + 1, 1).Value = objFile.Name
    Next
    
     'Opruimen!
    Set objFolder = Nothing
    Set objFile = Nothing
    Set objFSO = Nothing
    
End Sub

Oorspronkelijk geplaatst op: 19 mei 2014

Een ander voorbeeld om de gegevens in een cel te splitsen en de losse items in naast gelegen cellen te plaatsen.

Zie ook:
Tekst terugloop in cel splitsen naar meerdere cellen
Wederom tekst terugloop in cel splitsen
 

Sub SplitsGegevens()
'Splits data in een cel naar naast gelegen cellen
Dim SplitsData As Variant
Dim intTotaal As Integer
    
    'Gegevens van een cel in matrix opslaan
    SplitsData = Split(ActiveCell.Value, Chr(10))
    
    'Bovengrens matrix bepalen
    intTotaal = UBound(SplitsData)
    
    'Naar naast gelegen cellen schrijven
    Range(Cells(ActiveCell.Row, ActiveCell.Column + 1), _
    Cells(ActiveCell.Row, ActiveCell.Column + 1 + intTotaal)).Value = SplitsData
End Sub

Sub SplitsGegevens()
'Splits data in een cel naar naast gelegen cellen
Dim SplitsData As Variant
Dim intTotaal As Integer
    
    'Gegevens van een cel in matrix opslaan
    SplitsData = Split(ActiveCell.Value, Chr(10))
    
    'Bovengrens matrix bepalen
    intTotaal = UBound(SplitsData)
    
    'Naar naast gelegen cellen schrijven
    Range(Cells(ActiveCell.Row, ActiveCell.Column + 1), _
    Cells(ActiveCell.Row, ActiveCell.Column + 1 + intTotaal)).Value = SplitsData
End Sub

Oorspronkelijk geplaatst op: 25 mei 2014

Screenshot layout:

Selecteer ergens een cel in het bereik A1:C27 en toets Ctrl+L om een tabel te creëren met de naam Tabel1.
Maak een Dummy kolom [D]
[H2] >>> Gegevensvalidatie | Gegevensvalidatie | Lijst | Bron:=$F$4:$F$21
[H2] is weliswaar geen combobox maar je kunt wel waarden kiezen. Als je geen waarden ziet, moet je even naar boven scrollen.

[D2]=SOM(ALS(AANTAL.ALS(A$2:A2;A2)<>1;0;AANTAL.ALS(A$2:A2;A2));D1) (Doorvoeren naar beneden)
[F2]=MAX(Tabel1[Dummy])
[F4]=ALS(RIJEN(F$4:F4)>$F$2;””;INDEX(Tabel1[Steden];
VERGELIJKEN(RIJEN(F$4:F4);Tabel1[Dummy];0))) (Doorvoeren naar beneden)
[I2]=AANTAL.ALS(Tabel1[Steden];$H$2)

Onderstaande formules zijn Matrixformules. Invoeren met Ctrl+Shift+Enter
en vervolgens (Doorvoeren naar beneden)

[K2]=ALS(RIJEN(K$2:K2)>$I$2;””;INDEX(Blad1!A$2:A$27;
KLEINSTE(ALS(Tabel1[Steden]=Blad1!$H$2;RIJ(Tabel1[Steden])-RIJ(Blad1!$I$2)+1);RIJEN(K$2:K2))))

[L2]=ALS(RIJEN(L$2:L2)>$I$2;””;INDEX(Blad1!C$2:C$27;
KLEINSTE(ALS(Tabel1[Steden]=Blad1!$H$2;RIJ(Tabel1[Steden])-RIJ(Blad1!$I$2)+1);RIJEN(L$2:L2))))

Oorspronkelijk geplaatst op: 26 mei 2014

Hier is een lijst met 3 kolommen die je kunt gebruiken voor dit voorbeeld

Selecteer ergens een cel in het bereik A1:C4000 en toets Ctrl+L om een tabel te creëren met de naam Tabel1. Nu kun je gemakkelijk naar die tabel verwijzen in je formules met:

Tabel1[Steden] of Tabel1[Provincie] of Tabel1[Postcode]

[Z2:Z444] een lijst met plaatsnamen van Nederland. Voorbeeld hier!
[E2] >>> Gegevensvalidatie | Gegevensvalidatie | Lijst | Bron:=$Z$2:$Z$444

[F2]=AANTAL.ALS(Tabel1[Steden];E2)
[E4]=ALS(RIJEN(E$4:E4)<=F$2;$E$2;””) (Doorvoeren naar beneden)

Onderstaande formules zijn Matrixformules. Invoeren met Ctrl+Shift+Enter:
Er verschijnen dan accolades { } om de formule. Niet zelf typen want dan werkt de formule niet en vervolgens (Doorvoeren naar beneden)

[F4]{=ALS(RIJEN(F$4:F4)<=$F$2;INDEX(Tabel1[Provincie];KLEINSTE(ALS(Tabel1[Steden]=E$2;
RIJ(Tabel1[Steden]));RIJEN(F$4:F4))-1);””)}
[G4]{=ALS(RIJEN(G$4:G4)<=$F$2;INDEX(Tabel1[Postcode];KLEINSTE(ALS(Tabel1[Steden]=E$2;
RIJ(Tabel1[Postcode]));RIJEN(G$4:G4))-1);””)}