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

• #49171 Delila_1 veterán lappy #49170

  Új Válasz 2022-06-13 17:07:20 #49171

  Ú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 lappy #49170 üzenetére

  Sub Masolas()
    Dim cim As String, sor As Long, tartomany As Range, oszlop As Integer, usor As Long
    
    Set tartomany = Selection
    sor = tartomany(1).Row
    cim = Cells(sor, 2)
    On Error Resume Next
    oszlop = Application.Match(cim, Range("G1:BB1"), 0)
  If VarType(oszlop) = vbError Or oszlo=0 Then
        oszlop = Cells(1, Columns.Count).End(xlToLeft).Column + 1
        Cells(1, oszlop) = cim
    Else
        oszlop = oszlop + 6
    End If
    usor = Cells(Rows.Count, oszlop).End(xlUp).Row + 1
    Selection.Copy Cells(usor, oszlop)
End Sub

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