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

• #31164 tgumis tag bteebi #31093

  Új Válasz 2016-03-29 21:11:27 #31164

  Ú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

  

  tgumis

  tag

  válasz bteebi #31093 üzenetére

  Szia
  Kipróbáltam és az 1-es után megáll a történet
  

• #31141 tgumis tag bteebi #31093

  Új Válasz 2016-03-26 20:00:44 #31141

  Ú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

  

  tgumis

  tag

  válasz bteebi #31093 üzenetére

  Nem vagyok gépközelben, de ha ott leszek rögtön kiprobálom. Hálás köszönet mindenkinek akik itt segítségükkel hozzájárúlnak a hozzám hasonlók fejlődéséhez.

• #31094 bteebi veterán bteebi #31093

  Új Válasz 2016-03-23 10:48:59 #31094

  Ú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 bteebi #31093 üzenetére

  Ez ugyanaz, csak rövidebb. Látszik, hogy nem volt időm átnézni .

  Sub szamoz()
  sorsz = 1
  For xx = 2 To 90
  If Not Cells(xx, 1).EntireRow.Hidden Then
  If Cells(xx, 1).MergeArea.Rows.Count = 1 Or 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