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

• #53937 föccer nagyúr TigerCat #53936

  Új Válasz 2025-01-28 10:26:06 #53937

  Ú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

  

  föccer

  nagyúr

  válasz TigerCat #53936 üzenetére

  Makróval viszonylag könnyű.
  Egy gombhoz kötöttem a makró indítását, a Munka2 A1 cellába írtam be, hogy mennyivel növelje a szélességet.

  Az összes, Munka1 lapon lévő oszlopot autofit-re állítja, majd az összes használt oszlop méretéhez hozzáadja a munka2 A1 cellába beírt értéket.

  Sub Szelesseg_igazitas()
Dim i As Integer

Worksheets("Munka1").UsedRange.Columns.AutoFit

For i = 1 To Sheets("Munka1").UsedRange.Columns.Count
  Worksheets("Munka1").Columns(i).ColumnWidth = Worksheets("Munka1").Columns(i).ColumnWidth + Sheets("Munka2").Range("A1").Value
Next
MsgBox "Kész"
End Sub

• #53750 Fferi50 Topikgazda TigerCat #53748

  Új Válasz 2025-01-02 20:41:49 #53750

  Ú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

  

  Fferi50

  Topikgazda

  válasz TigerCat #53748 üzenetére

  Szia!
  Szerintem csak makróval fog menni a nyomtatás, a Quality paramétert kell állítani:
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "Filenév", Quality:=xlQualityMinimum, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
  Itt találsz helpet: [link]
  Üdv.

• #50847 Fferi50 Topikgazda TigerCat #50844

  Új Válasz 2023-04-21 15:26:06 #50847

  Ú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

  

  Fferi50

  Topikgazda

  válasz TigerCat #50844 üzenetére

  Szia!
  Az egyik lehetőség a szűrők használata. A szövegszűrőknél alkalmazd a tartalmazza, kezdete és nem tartalmazza, nem kezdete opciókat a terméknek megfelelően.
  Az autós példádnál maradva pl: Kezdete Opel Astra ötajtós és nem tartalmazza metálfény, majd az üzemanyag oszlopon a benzin aztán a dízel opciót.
  A szűrt állományon lehúzhatod az etalon oszlop értékeit.
  Ezután szűrés változtatás... lépések ismétlése.
  A másik lehetőség:
  Segédoszlop készítése a releváns megnevezés és az üzemanyag összefűzésével az árjegyzéken.
  Ezután Index függvény B : H (segédoszlop), HOl.VAN függvény a B oszlopban levő típus megfelelő része az üzemanyaggal összefűzve keresése a segédoszlopban, a D, E, F, G oszlopokban.
  Pl. A segédoszlopban szerepel Opel Astra ötajtós benzin.
  Keresés:
  A D21 cella képlete:
  =INDEX($B$3:$G$18;HOL.VAN("Opel Astra ötajtós " & C21;$H$3:$H$18;0);3)
  A keresési érték megállapítása termékenként változik sajnos.
  Ezért javasoltam inkább a szűrést.
  Üdv.

• #42134 Mutt senior tag TigerCat #42021

  Új Válasz 2019-11-07 21:19:04 #42134

  Ú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 TigerCat #42021 üzenetére

  Szia,

  Mac-en nagyon apró, így ha elmentem 125%-on, az túl nagy Windows alatt és fordítva.

  Láttam választ, de nem láttam OS ellenőrzést, amire az Application.OperatingSystem függvény használható VBA-ban.

  Private Sub Workbook_Open()

If Application.OperatingSystem Like "Windows*" Then
ActiveWindow.Zoom = 100
Else
ActiveWindow.Zoom = 150
End If

End Sub

  üdv

• #42079 Bobrooney senior tag TigerCat #42077

  Új Válasz 2019-11-02 07:57:00 #42079

  Ú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

  

  Bobrooney

  senior tag

  válasz TigerCat #42077 üzenetére

  Makróbarát Excel munkafüzetként mentsd el. De elvileg mentés előtt figyelmeztet is hogy ha nem változtatsz fájl formátumot akkor elvesznek a makróid.
  Szóval Fájl -> Mentés másként -> xlsm formátumba mentsd el.
  Ha újra nyitod figyelj oda a makróbeállításokra (pl. ne tiltsa le azonnal).

  Remélem tudtam segíteni.

• #42078 Fferi50 Topikgazda TigerCat #42077

  Új Válasz 2019-11-02 07:53:43 #42078

  Ú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

  

  Fferi50

  Topikgazda

  válasz TigerCat #42077 üzenetére

  Szia!
  A munkafüzetet makróbarátként (xlsm kiterjesztés) vagy binárisként (xlsb) kell elmentened.
  Ellenkező esetben a makrók nem mentődnek el.

  Üdv.

• #42049 Fferi50 Topikgazda TigerCat #42048

  Új Válasz 2019-11-01 07:29:41 #42049

  Ú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

  

  Fferi50

  Topikgazda

  válasz TigerCat #42048 üzenetére

  Szia!
  Az Excel munkalap nézetből az Alt+F11 gomb visz át a VBA (makrós) ablakba.
  Az ablakban normál esetben van egy Projekt rész. Itt láthatod a munkalapjaid és hozzá a Thisworkbook - ot. Arra ráállsz - jobb egérgomb -View Code
  Megjelenik a jobb oldalon a kódlap. Oda másold be.
  Sajnos sem 365 sem Mac nincs nekem, így nem tudom kipróbálni.

  Üdv.

• #42044 Fferi50 Topikgazda TigerCat #42043

  Új Válasz 2019-10-31 18:07:02 #42044

  Ú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

  

  Fferi50

  Topikgazda

  válasz TigerCat #42043 üzenetére

  Szia!
  Nem mindegy, hova másolod.
  A Thisworkbook kódlapját nyisd meg és oda másold be.
  Ez egy eseménykezelő makró, ami akkor fut le, amikor a munkafüzetet megnyitják.

  Üdv.

• #42042 sztanozs veterán TigerCat #42041

  Új Válasz 2019-10-31 11:37:58 #42042

  Ú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 TigerCat #42041 üzenetére

  Private Sub Workbook_Open()
#If Mac Then
ActiveWindow.Zoom = 150
#Else
ActiveWindow.Zoom = 100
#End If
End Sub

• #42040 sztanozs veterán TigerCat #42021

  Új Válasz 2019-10-31 11:12:57 #42040

  Ú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 TigerCat #42021 üzenetére

  Ha platform szinten akarsz, akkor csak makróval

• #42038 TigerCat nagyúr TigerCat #42021

  Új Válasz 2019-10-31 08:00:17 #42038

  Ú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

  

  TigerCat

  nagyúr

  válasz TigerCat #42021 üzenetére

  Erre bármilyen ötlet esetleg?

• #41776 Pakliman tag TigerCat #41738

  Új Válasz 2019-09-16 10:48:47 #41776

  Ú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

  

  Pakliman

  tag

  válasz TigerCat #41738 üzenetére

  Ha van Total Commandered, akkor telepítsd hozzá a Startup Guard kiegészítőt (csak 32 bites TC-n működik!).
  
  Ott meg fogod (talán) találni és törölheted.

• #41773 TigerCat nagyúr TigerCat #41738

  Új Válasz 2019-09-16 09:14:43 #41773

  Ú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

  

  TigerCat

  nagyúr

  válasz TigerCat #41738 üzenetére

  Erre valaki esetleg?

  Köszi!

• #41668 Fferi50 Topikgazda TigerCat #41667

  Új Válasz 2019-08-28 10:05:47 #41668

  Ú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

  

  Fferi50

  Topikgazda

  válasz TigerCat #41667 üzenetére

  Szia!

  Szövegdaraboló függvényt tudsz használni:
  Pl. bal(szöveg;8) & "-" & közép(szöveg;9;8) & ha(hossz(szöveg)=16; "-" & jobb(szöveg;8);"")
  (Angolul left, mid, right a szövegdaraboló, if és len a ha és a hossz)

  Üdv.

• #26902 Delila_1 veterán TigerCat #26901

  Új Válasz 2015-05-15 11:34:24 #26902

  Ú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 TigerCat #26901 üzenetére

  A 2007-es verziótól kezdődően alkalmazhatod az Adatok | Adateszközök | Ismétlődések eltávolítása funkciót.

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