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

• #19292 Mutt senior tag the radish #19290

  Új Válasz 2013-10-14 11:58:19 #19292

  Ú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

  

  Mutt

  senior tag

  válasz the radish #19290 üzenetére

  Hello,

  Ha jól értem, akkor a sSheetsToPrint = "Export,Import" részben interaktívan szeretnéd a lapok nevét.
  Ez a kódrészlet megoldja ezt:

  sSheetsToPrint = ""
  
  For Each cell In Range("A1:Z1")
  If cell <> "" Then
  sSheetsToPrint = sSheetsToPrint & cell & ","
  End If
  Next
  
  sSheetsToPrint = Left(sSheetsToPrint, Len(sSheetsToPrint) - 1)

  Az első mondatodból kiindulva van alternatív megoldás is?
  Én csak akkor tenném külön szubrutinba őket, ha teljes más eredményt/feldolgozást kell elvégezni 0 és 1 esetén. Ha van átfedés, akkor egyben hagynám mert ekkor csak 1x kell a közös részt megírni és csak a megfelelő részeken ágaznék el.

  üdv.

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