Rij verplaatsen als bepaalde cel en dus hele rij is ingevuld

[mariken]

Met de hulp van dit forum ben ik bezig een multifunctioneel formuliertje in elkaar te breien voor de collega's van onze receptie. Ik ben al een heel eind. Toch nog een vraag, waar ik niet uitkom.
Ik wil, als in G3 de tijd is ingevuld en dus de hele rij (A3 t/m G3) is ingevuld, deze wordt verplaatst naar I3 t/m O3 enz. Is dit mogelijk?
Weer veel dank voor de aandacht Mariken

 

[Roncancio]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G3")) Is Nothing And Target.Count = 1 Then
    With Range("A3:G3")
        Range("I3:O3").Value = .Value
        .ClearContents
    End With
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[Roncancio]

Voor een willekeurige cel in kolom G.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 And Target.Count = 1 Then
    With Range("A" & Target.Row).Resize(1, 7)
        Target.Offset(0, 2).Resize(1, 7).Value = .Value
        .ClearContents
    End With
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[mariken]

Ik ga voor de twee optie, alleen zou het mooi zijn als de lege rij dan ook verdwijnt, dus dat de rij daaronder opschuift naar boven, zodat het een aanengesloten geheel blijft.

 

[Roncancio]

De waardes worden in de kolommen I t/m O op dezelfde regel geplaatst.
Dus wat moet precies verwijderd worden?

Met vriendelijke groet,


Roncancio

 

[mariken]

Ik ben heel slecht in uitleggen, ik weet het. :-(
Stel, je hebt rijen A3, A4 en A5 met gegevens en A4 wordt compleet gemaakt met het uitformulier en wordt dus verplaatst naar i t/m o, dan wil ik dat rij A5 opschuift naar rij A4, zodat er geen hiaten/lege rijen tussenstaan.

 

[Roncancio]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 And Target.Count = 1 Then
    With Range("A" & Target.Row).Resize(1, 7)
        Target.Offset(0, 2).Resize(1, 7).Value = .Value
        .Delete
    End With
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[mariken]

Ik heb een jpeg-je bijgevoegd, misschien is het dan duidelijker???Bekijk bijlage 164945

 

[Roncancio]

Zo dan.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 And Target.Count = 1 Then
    With Range("A" & Target.Row).Resize(1, 7)
        Range("I" & Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 7).Value = .Value
        .Delete
    End With
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[mariken]

Doet het nog niet:-l Bekijk bijlage 164965

 

[Roncancio]

Heb je wel de laatste versie van mijn code gebruikt?
Want deze werkt zoals je in je voorbeeld aangeeft.

Met vriendelijke groet,


Roncancio

 

[mariken]

Ligt vast aan mij. De bomen en het beruchte bos ben ik bang. Mag ik het bestand bijvoegen zodat je het wel werkend maakt? Eeuwig dankbaar
Mariken
Bekijk bijlage 164967

 

[Roncancio]

Ik kan op dit moment geen bestanden plaatsen maar met ik heb onderstaande code wel kunnen testen in je bestand.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 And Target.Count = 1 Then
    With Range("A" & Target.Row).Resize(1, 7)
        Range("I" & Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 7).Value = .Value
        .Delete xlUp
    End With
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[mariken]

Perfect - dankjewel:thumb:

 

[mariken]

Toch nog iets waar ik niet uitkom. De dag en maand wordt bij het verplaatsen omgedraaid. Heb lopen zoeken en verschillende mogelijkheden geprobeerd, maar kom er niet uit. Datzelfde geldt voor cel A1, zie bijbehorende script. Wil je hier bij gelegenheid eens naar kijken? Dank! Mariken
Bekijk bijlage 165083

 

[Roncancio]

Ik heb de code aangepast.

Met vriendelijke groet,


Roncancio

 

[mariken]

Dan krijg ik een foutmelding (zie bijgaand jpeg-je, Bekijk bijlage 165167), de datum blijft omgekeerd en de layout van kolom tijdstip uit is weg:-( Heb ik misschien verkeerde Excel-versie??
Mocht het niet lukken, dan moet ik misschien maar overwegen om de datumkolommen er uit te laten. Als je nog een keer gelegenheid hebt, wil je er dan nog en blik op werpen?
Heel veel dank, Mariken

 

[Roncancio]

Dat komt omdat aa geen unieke waarde in de C-kolom is.

Met vriendelijke groet,


Roncancio

 

[mariken]

Weer wat geleerd, dankjewel!