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

  • Delila_1

    Topikgazda

    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.

    [ Szerkesztve ]

    Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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