Új hozzászólás Aktív témák

• #20855 bteebi veterán Psytróger #20851

  Új Válasz 2014-03-09 13:25:10 #20855

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bteebi

  veterán

  válasz Psytróger #20851 üzenetére

  Erre ez működik:

  Sub melleir()
  Dim i As Long
  For i = 1 To Rows.Count
  If Cells(i, 1).Font.ColorIndex = 3 Then
  Cells(i, 3).Value = Cells(i, 1).Value '"P"
  End If
  Next i
  End Sub

  Ebben az esetben az A oszlopban lévő cella tartalmár írja a C oszlopba. Ha a "P" elől kitörlöd a Cells(i, 1).Value-t és az aposztrófot, akkor minden piros betűs cella mellé P betűt tesz.

Új hozzászólás Aktív témák