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

• #25612 Delila_1 veterán grondby #25611

  Új Válasz 2015-02-26 13:45:43 #25612

  Ú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 grondby #25611 üzenetére

  A lapodhoz rendelve a lenti makrót automatikus lesz a H oszlop bővítése, mikor új adatot viszel fel a B oszlopba.

  A füzetedet makróbarátként kell mentened.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sor As Integer
  
  If Target.Column = 2 Then
  On Error GoTo Uj
  sor = Application.Match(Target, Range("H:H"), 0)
  
  End If
  Exit Sub
  
  Uj:
  Range("H" & Application.WorksheetFunction.CountA(Columns(8)) + 1) = Target
  End Sub

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