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

• #33228 grampus csendes tag Delila_1 #33215

  Új Válasz 2016-11-14 18:49:59 #33228

  Ú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

  

  grampus

  csendes tag

  válasz Delila_1 #33215 üzenetére

  Szia!

  Köszi a gyors választ, de sehogy sem akar működni.
  A tört számokat nem tudja átalakítani, igaz ezt megoldottam a

  Cells.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder _
  :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
  sorral, de a beillesztés után a cellákban, elhelyez egy 0-át.

  Ha az alábbi sort
  Cells.Replace "0", Null
  alkalmazom, onnét is kitörli a 0-ákat ahhol kellenek, ha az
  ActiveWindow.DisplayZeros = False
  akkor meg szemre nem látszanak a 0-k, de valójában benne marad a cellában.

  Pedig csak pár szövegként tárolt számról van szó

• #33213 grampus csendes tag Delila_1 #33203

  Új Válasz 2016-11-13 13:44:17 #33213

  Ú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

  

  grampus

  csendes tag

  válasz Delila_1 #33203 üzenetére

  Köszönöm a választ, de valójában két problémám van.
  Egyrészt ha konkrétan Value=1 vagy Selection.Value = 1-et adok meg a cellába megadott érték helyett (Range("D1")), rossz eredményt kapok, másrészt gondoltam, ha már úgy is a Pastespecial-t használok, egy műveleten belül is letudhatom a beillesztést.

• #33201 grampus csendes tag

  Új Válasz 2016-11-11 20:39:12 #33201

  Ú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

  

  grampus

  csendes tag

  Sziasztok!

  A segítségeteket szeretném kérni, hogyan tudom egy másik fájl adatainak átmásolásnál a szövegként tárolt számokat számmá átalakítani. Az alábbi makró sorokat használom:

  'Kiegészítő adatok másolása
  Workbooks.Open Filename:=ThisWorkbook.Path & "\Kiegészítő adatok.xls"
  Range("B222").Select
  Selection.Copy
  Windows("Adatok.xlsm").Activate
  Sheets("Forrás-Kiegészítő adatok").Select
  Range("B2").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  Range("A11").Select
  Windows("Kiegészítő adatok.xls").Activate
  Application.CutCopyMode = False
  ActiveWindow.Close

  Mivel kellene kiegészítenem?
  Köszönöm!

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