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

• #22564 Delila_1 veterán slashing #22563

  Új Válasz 2014-07-24 11:09:51 #22564

  Ú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 slashing #22563 üzenetére

  Így hirtelen ránézésre az end with fölötti sorban
  Workbooks(WBN).Sheets(WS).Cells(6, usor). ...
  helyett
  Workbooks(WBN).Sheets(WS).Cells(6, uoszlop). ...
  kell.

  Miért emlékeznék?

  Még annyit tehetsz bele, hogy az uoszlop megadása után betehetsz egy feltételt.
  if uoszlop<4 then uoszlop=4
  Ez azt teszi, hogy ha a 6. sorban nincs adat, akkor a D lesz az első oszlop, ahova másolsz.

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