Tekst in cel automatisch vervangen

[eelco42]

Hallo,

In dit voorbeeldbestand wil ik de tekst True en False in kolom P automatisch laten vervangen door de tekst uit de cel ernaast in kolom Q. Welke code moet ik dan in een macro zetten?

Bekijk bijlage Voorbeeldbestand.xls

 

[edmoor]

Zoiets:

Sub VervangTF()
    For i = 4 To Range("P4").CurrentRegion.Rows.Count + 3
        Select Case Cells(i, "P")
            Case "True", "False": Cells(i, "P") = Cells(i, "Q")
        End Select
    Next i
End Sub

 

[HSV]

Of:

Sub hsv()
Dim sv, i As Long
sv = Cells(4, 16).CurrentRegion.Resize(, 2)
For i = 1 To UBound(sv)
  If sv(i, 1) = True or sv(i,1) = false Then
    sv(i, 1) = sv(i, 2)
    sv(i, 2) = ""
  End If
Next i
Cells(4, 16).Resize(UBound(sv), 2) = sv
End Sub

 

[snb]

Wie zet in kolom P True of False ?
En waarom zet die dan niet meteen in kolom P de inhoud van kolom Q ?

Sub M_snb()
  For Each it In Columns(17).SpecialCells(2, 2).Areas
    it.Offset(, -1) = it.Value
  Next
End Sub

 

[VenA]

TS is goed in vragen stellen en draadjes op opgelost zetten. Een bedankje kost blijkbaar wat teveel moeite.