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

• #31093 bteebi veterán tgumis #31080

  Új Válasz 2016-03-23 08:56:29 #31093

  Ú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

  

  bteebi

  veterán

  válasz tgumis #31080 üzenetére

  Ha jól értettelek, akkor valami ilyesmi jó lesz:

  Sub szamoz()
  sorsz = 1
  For xx = 2 To 22
  If Not Cells(xx, 1).EntireRow.Hidden Then
  If Cells(xx, 1).MergeArea.Rows.Count = 1 Then
  Cells(xx, 1).Value = sorsz
  sorsz = sorsz + 1
  ElseIf Cells(xx, 1).MergeArea.Rows.Count > 1 And Cells(xx - 1, 1).MergeArea.Rows.Count = 1 Then
  Cells(xx, 1).Value = sorsz
  sorsz = sorsz + 1
  End If
  End If
  Next xx
  End Sub

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