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

• #48288 Delila_1 veterán Darth_Revan #48275

  Új Válasz 2022-01-24 14:29:20 #48288

  Ú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 Darth_Revan #48275 üzenetére

  Egy kis makró:
  Sub Csere_0_1()
    Dim sor As Long, oszlop As Integer
    sor = 1
    Do While Cells(sor, "A") > ""
        oszlop = Cells(sor, Columns.Count).End(xlToLeft).Column
        If Application.WorksheetFunction.CountIf(Range(Cells(sor, 1), Cells(sor, oszlop)), "kettő") > 0 Then
            Range(Cells(sor, 1), Cells(sor, oszlop)) = 1
        Else
            Range(Cells(sor, 1), Cells(sor, oszlop)) = 0
        End If
        sor = sor + 1
    Loop
End Sub
  
  

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