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

• #4025 Delila_1 veterán vagamo #4023

  Új Válasz 2008-11-08 06:27:40 #4025

  Ú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

  

  Delila_1

  veterán

  válasz vagamo #4023 üzenetére

  A lapfülön jobb klikk, Kód megjelenítése. Bejutottál a VB szerkesztőbe. Jobb oldalon kaptál 1 üres lapot, oda másold be a makrót.
  Az I, vagy T betűt a Q oszlopba írd. Jó az i és a t is.

  Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Target.Column = 17 And (Target.Value = "I" Or Target.Value = "i") Then
  Cells(Target.Row, 16) = Cells(Target.Row, 6)
  Cells(Target.Row, Target.Column) = ""
  End If
  
  If Target.Column = 17 And (Target.Value = "T" Or Target.Value = "t") Then _
  Cells(Target.Row, 17) = Cells(Target.Row + 1, 6)
  
  End Sub

  Ha lenne egy külön oszlop, amibe beviszed a két betűd valamelyikét, akkor az ssrobi által említett HA függvénnyel simán meg lehetne oldani.

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