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

• #15237 Attas aktív tag MaciLaci68 #15235

  Új Válasz 2012-10-11 22:32:26 #15237

  Ú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

  

  Attas

  aktív tag

  válasz MaciLaci68 #15235 üzenetére

  Köszönöm szépen! Működik ahogy kell!

• #15236 sztanozs veterán MaciLaci68 #15235

  Új Válasz 2012-10-11 21:18:30 #15236

  Ú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

  

  sztanozs

  veterán

  válasz MaciLaci68 #15235 üzenetére

  Excel (VBA) - Open / Write / Close utasítások - de ahogy olvasom ez is felejtős - ez is helyettesít, meg macskakörmöl, ha valami nem tetszik neki a szövegben

• #15230 sztanozs veterán MaciLaci68 #15227

  Új Válasz 2012-10-11 15:12:17 #15230

  Ú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

  

  sztanozs

  veterán

  válasz MaciLaci68 #15227 üzenetére

  Megpróbáltam most FileFormat:=xlText-tel és nekem nem macskakörmöli...
  Pontosabban a te szövegedet kézzel és makróval is macskakörmöli.

• #15226 sztanozs veterán MaciLaci68 #15223

  Új Válasz 2012-10-11 13:58:43 #15226

  Ú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

  

  sztanozs

  veterán

  válasz MaciLaci68 #15223 üzenetére

  Mentsd el txt kiterjesztéssel...
  Amúgy nekem DOS Text-két mentve SaveAs-sal (menüből) is berakja macskakörömbe. Te pontosan milyen Text módba mented, ahol nem macskakörmöl?

• #15225 Attas aktív tag MaciLaci68 #15219

  Új Válasz 2012-10-11 13:53:49 #15225

  Ú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

  

  Attas

  aktív tag

  válasz MaciLaci68 #15219 üzenetére

  Opsz. Ez is igaz.. Köszönöm!

• #15220 sztanozs veterán MaciLaci68 #15217

  Új Válasz 2012-10-11 12:46:56 #15220

  Ú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

  

  sztanozs

  veterán

  válasz MaciLaci68 #15217 üzenetére

  Ezt használd:
  FileFormat:= xlTextPrinter
  Esetleg még ezt tedd hozzá (ha local codepage kell, ami a gépen van és nem US):
  Local:= True

• #11521 Delila_1 veterán MaciLaci68 #11519

  Új Válasz 2011-09-30 14:52:28 #11521

  Ú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 MaciLaci68 #11519 üzenetére

  Én sem jöttem volna rá magamtól, segítséget kértem.

• #11514 Delila_1 veterán MaciLaci68 #11511

  Új Válasz 2011-09-30 13:10:40 #11514

  Ú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 MaciLaci68 #11511 üzenetére

  Megvan a rövid elérés.

  Cells(1) = Range(Selection.Address).Name.Name

• #11509 Delila_1 veterán MaciLaci68 #11507

  Új Válasz 2011-09-30 12:12:46 #11509

  Ú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 MaciLaci68 #11507 üzenetére

  Kijelölöd a szöveget, és a Konvertálatlan (vagy valami hasonló nevű) gombot megnyomod.

• #11508 Delila_1 veterán MaciLaci68 #11503

  Új Válasz 2011-09-30 12:11:33 #11508

  Ú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 MaciLaci68 #11503 üzenetére

  Miért is van erre szükség? Hiszen ha van az aktív cellának neve, akkor a szerkesztőléc bal oldalán láthatod kiírva.

  Ez a makró is végig böngészi a neveket, csak egy kicsit gyorsabban.

  Sub CellaNeve()
  Dim i As Long
  For i = 1 To ActiveWorkbook.Names.Count
  On Error GoTo Hiba
  If ActiveWorkbook.Names(i).RefersToLocal = Selection.Name Then
  Range("A1") = ActiveWorkbook.Names(i).Name
  Exit Sub
  End If
  Next
  
  Hiba:
  Cells(1) = "A " & ActiveCell.Address & " cella nincs elnevezve"
  End Sub

• #11507 MaciLaci68 csendes tag MaciLaci68 #11506

  Új Válasz 2011-09-30 12:09:45 #11507

  Ú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

  

  MaciLaci68

  csendes tag

  válasz MaciLaci68 #11506 üzenetére

  Ezek a fejek bekavartak.
  A B oszlopnál a a feljhelyett kettőspontB
  Tapsolósok helyett kettőspontC
  VÉGEREDMÉNY-nél szándékosan raktam fejet.

  Hogy lehet ezeket kikapcsolni?

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