Cellen verplaatsen afhankelijk van de cel waarde

[hryttel]

Beste helpers,

Deze vraag heb ik eerder gesteld en die is opgelost!
"Ik heb een werkblad met diverse tabbladen en een ervan beval tijden (voor het berekenen van gemiddelden en andere doeleinden.
In kolom D heb ik de tijd duur in minuten staan en als die boven 60 min. komt wil ik de inhoud verplaatst hebben naar kolom K. (op de zelfde regel)"

Private Sub CommandButton1_Click()
    Dim r As Double
    For r = 6 To 9999
        If Cells(r, 4) > 60 Then
            Cells(r, 4).Cut Cells(r, 11)
        End If
   Next r
End Sub

Nu is het zo dat het gaat over gemengde gegevens, Binnenland en Buitenland gesprekken en die wil ik graag gesplitst hebben.
Ik heb zelf een poging gedaan maar komt er niet uit.
De bedoelling is dat lege cellen overgeslagen worden en dat alleen de cellen, van de regel waar de opmerking Buitenland staat, verplaatst worden.

Private Sub CommandButton2_Click()
    Dim r As Double
    For r = 6 To 9999
        If Cells(r, 4) = True Nothing
          If Cells(r, 12) = "Buitenland" Then
            Cells(r, 4).Cut Cells(r, 13)
        End If
    End If
   Next r
End Sub

Mvg, Henning

Het bestand is 465 Kb en kan ik nu niet uploaden

 

[Cobbe]

En waarom zou jij dat niet kunnen uploaden?
Zip, Rar, Mijnbestand.nl ?????

 

[hryttel]

Hallo Cobbe,

Jij hebt mij vorige keer ook geholpen. Dank daar voor.
Ik krijg een foutmelding dat het bestand te groot is?


Groeten,
Henning

Bekijk bijlage Gemiddelde tijd min groter dan 60.xlsx

Cobbe, ik heb het vorige bestandje gebruikt.
Blad 1, de tijden en Blad 2, de plek waar de validatie opgehaald moet worden "Buitenland"
ik hoop dat het een beetje duidelijk is.

 

[Cobbe]

Daarom ook de voorstellen: RARren of ZIPpen of je bestand stallen op Mijnbestand.nl en de link posten.

 

[hryttel]

Cobbe,
Zelfs met Rar kwam het bestand op 422 Kb uit

 

[Cobbe]

Het is toch allemaal niet zo moeilijk:
http://www.mijnbestand.nl/

en vergeet niet de link te posten.

PS: Denk aan de gevoelige info in je bestand!!

 

[hryttel]

Sorry Cobbe,

Ik had je bericht niet goed gelezen (was bezig met antwoorden op je vorige bericht).
Hier is ie dan:
http://www.mijnbestand.nl/Bestand-ZKC66OYTTFIM.rar

Groeten, Henning

 

[Cobbe]

Doet deze wat je voor ogen hebt?

Private Sub CommandButton2_Click()
    Dim r As Double
    For r = 3 To Range("A" & Rows.Count).End(xlUp).Row
' als kolom D groter dan 60 en kolom L bevat Buitenland dan verplaatsen naar kolom M
        If Cells(r, 4) > 60 And Cells(r, 12) = "Buitenland" Then
            Cells(r, 4).Cut Cells(r, 13)
        End If
   Next r
End Sub

 

[hryttel]

Cobbe,

Dit is idd wat ik van plan was behalve dat het twee verschillende acties zijn.
Private Sub CommandButton1_Click() filtert de (te lange) gesprekken eruit
en
Private Sub CommandButton2_Click() moet filteren Buitenland van de rest.

Groeten, Henning

 

[Cobbe]

Dan is het volgens mijn begrip dit hier:

Private Sub CommandButton1_Click()
    Dim r As Double
 LRIJ = Range("A" & Rows.Count).End(xlUp).Row
    For r = 3 To LRIJ
' als kolom D groter dan 60 en kolom D <> leeg, dan verplaatsen naar kolom K
        If Cells(r, 4) <> "" And Cells(r, 4) > 60 Then
            Cells(r, 4).Cut Cells(r, 11)
        End If
   Next r
End Sub
Private Sub CommandButton2_Click()
    Dim r As Double
 LRIJ = Range("A" & Rows.Count).End(xlUp).Row
    For r = 3 To LRIJ
' als kolom D groter dan 60 en kolom L bevat Buitenland dan verplaatsen naar kolom M
        If Cells(r, 4) <> "" And Cells(r, 12) = "Buitenland" Then
            Cells(r, 4).Cut Cells(r, 13)
        End If
   Next r
End Sub

 

[hryttel]

Ziet er goed uit. Ik ga het vanavond testen, bedankt voor zover.

Gr, Henning

 

[hryttel]

Cobbe,

Geweldig!:thumb:

Dank je wel.
Groeten, Henning