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

• #34315 Delila_1 veterán radam #34314

  Új Válasz 2017-02-26 16:30:00 #34315

  Ú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 radam #34314 üzenetére

  Összesítő B2 -> 2017.02.25
  Összesítő B3 -> =SZÖVEG(B2;"ééééhhnn")
  Összesítő B4 -> =INDIREKT("'D:\Próba\[" & B3 & ".xlsx]Munka1'!B3")

  Mindhárom cellát másolhatod jobbra.

• #34313 Delila_1 veterán radam #34312

  Új Válasz 2017-02-26 14:55:38 #34313

  Ú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 radam #34312 üzenetére

  Az INDIREKT függvényt nézd meg!

• #30042 Fferi50 Topikgazda radam #30041

  Új Válasz 2016-01-05 20:47:49 #30042

  Ú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 radam #30041 üzenetére

  Szia!

  Ha egyébként nem kell azokat az eljárásokat megcsinálni bezáráskor, amiben az üzenet feldobó makrók vannak, akkor szerintem elég kikapcsolni az eseménykezelést az Application.Enableevents=False sorral a fájl bezárása előtt, utána pedig (ha szükség van rá) akkor az Application.Enableevents=True sor visszakapcsolja az eseménykezelést. (Csak a legvégén ne felejtsd el visszakapcsolni. :)

  Üdv.

• #11579 radam csendes tag radam #11573

  Új Válasz 2011-10-05 12:24:14 #11579

  Ú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

  

  radam

  csendes tag

  válasz radam #11573 üzenetére

  Az első kérdésemre közben megtaláltam a választ [=NEM(VAGY("H"=A1;"VL"=A1;""=A1))].

  Viszont a dátum formatumok szerinti feltételes formázás lehetőségét még mindig keresem!

• #11578 Gab őstag radam #11577

  Új Válasz 2011-10-05 12:10:39 #11578

  Ú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

  

  Gab

  őstag

  válasz radam #11577 üzenetére

  áááá
  thx
  soksok ideget mentettél meg

• #11340 Delila_1 veterán radam #11338

  Új Válasz 2011-09-15 09:48:31 #11340

  Ú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 radam #11338 üzenetére

  Szívesen.

• #11339 Delila_1 veterán radam #11338

  Új Válasz 2011-09-15 09:48:31 #11339

  Ú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 radam #11338 üzenetére

  Szívesen.

• #11337 Delila_1 veterán radam #11336

  Új Válasz 2011-09-15 09:40:52 #11337

  Ú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 radam #11336 üzenetére

  =HA(SZÁM(SZÖVEG.KERES($C$1;A1));"V";"H")

  A C1 cella tartalmazza a keresett kifejezést.

• #11334 perfag aktív tag radam #11333

  Új Válasz 2011-09-15 09:26:35 #11334

  Ú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

  

  perfag

  aktív tag

  válasz radam #11333 üzenetére

  Egy megoldás HA függvény nélkül:
  =NEM(HIBÁS(SZÖVEG.KERES("a szó";B8)))
  A B8-ban van az értelmes mondat.

• #9832 Delila_1 veterán radam #9831

  Új Válasz 2011-03-29 13:54:12 #9832

  Ú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 radam #9831 üzenetére

  Szívesen.

  Ha tudná, nem kellene hozzá a makró.

• #9826 Delila_1 veterán radam #9824

  Új Válasz 2011-03-29 13:27:29 #9826

  Ú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 radam #9824 üzenetére

  Sub SortWorksheets()
  Dim sCount As Integer, i As Integer, j As Integer
  Application.ScreenUpdating = False
  sCount = Worksheets.Count
  If sCount = 1 Then Exit Sub
  For i = 1 To sCount - 1
  For j = i To sCount
  If Worksheets(j).Name < Worksheets(i).Name Then
  Worksheets(j).Move Before:=Worksheets(i)
  End If
  Next j
  Next i
  Application.ScreenUpdating = True
  End Sub

• #9742 Delila_1 veterán radam #9741

  Új Válasz 2011-03-22 18:56:59 #9742

  Ú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 radam #9741 üzenetére

  Szívesen.

• #9734 Delila_1 veterán radam #9730

  Új Válasz 2011-03-22 07:46:09 #9734

  Ú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 radam #9730 üzenetére

  Sub Hozzair()
  Dim usor As Integer
  
  Workbooks.Open Filename:="F:\TMP\Ebből.xls"
  Range("A1").Select
  Range(Selection, Selection.End(xlToRight)).Select
  Range(Selection, Selection.End(xlDown)).Select
  
  Selection.Copy
  Windows("Ebbe.xls").Activate
  usor = Range("A65536").End(xlUp).Row + 1
  Range("A" & usor).Select
  Selection.PasteSpecial Paste:=xlPasteFormats
  Selection.PasteSpecial Paste:=xlPasteValues
  Workbooks("ebből.xls").Close
  End Sub

• #9729 Delila_1 veterán radam #9728

  Új Válasz 2011-03-21 16:01:57 #9729

  Ú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 radam #9728 üzenetére

  Sub Bevisz()
  Dim usor As Integer
  
  Sheets("Kezdő_lap").Select
  Range("A1").Select
  Range(Selection, Selection.End(xlToRight)).Select
  Range(Selection, Selection.End(xlDown)).Select
  
  Selection.Copy
  Sheets("Másik_lap").Select
  usor = Range("A1").End(xlDown).Row + 1
  Range("A" & usor).Select
  Selection.PasteSpecial Paste:=xlPasteFormats
  Selection.PasteSpecial Paste:=xlPasteValues
  End Sub

• #9727 Cuci3 tag radam #9726

  Új Válasz 2011-03-21 15:51:22 #9727

  Ú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

  

  Cuci3

  tag

  válasz radam #9726 üzenetére

  Ha nem makróval kell megoldani: Irányított beillesztés / Beillesztés: Értéket + Művelet: Összeadás.

• #9689 Delila_1 veterán radam #9688

  Új Válasz 2011-03-19 11:54:46 #9689

  Ú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 radam #9688 üzenetére

  Szívesen.

  Bugizozi is ezt írta.

• #9687 bugizozi őstag radam #9685

  Új Válasz 2011-03-19 11:44:14 #9687

  Ú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

  

  bugizozi

  őstag

  válasz radam #9685 üzenetére

  Azt hiszem értem hogy mit mondasz, de nem értem, hogy miért nem működik nálad...
  Egy üres excelben átneveztem a Munka2 lapot "Első vállalat" -ra,idézőjelek nélkül majd a Munka1 lapra váltottam.
  A kódom:

  nev = "Első vállalat"
  Sheets(nev).Select

  futtatom és simán átvált az "Első vállalat" -ra...

• #9686 Delila_1 veterán radam #9683

  Új Válasz 2011-03-19 11:38:51 #9686

  Ú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 radam #9683 üzenetére

  Próbáld ezt:

  Sub ugras()
  Sheets("Munka1").Select
  usor = Range("A1").End(xlDown).Row
  For sor = 1 To usor
  lapnev = Sheets("Munka1").Cells(sor, 1)
  Sheets(lapnev).Select
  MsgBox "Itt vagyok a(z) " & lapnev & " lapon"
  Next
  End Sub

• #9684 bugizozi őstag radam #9683

  Új Válasz 2011-03-19 11:25:20 #9684

  Ú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

  

  bugizozi

  őstag

  válasz radam #9683 üzenetére

  Próbáld a Worksheets(nev).Select, bár szvsz az Activate-vel is működnie kellene

  ui: vagy csak simán Sheets(nev).Select/Activate...

• #9637 perfag aktív tag radam #9636

  Új Válasz 2011-03-07 21:16:48 #9637

  Ú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

  

  perfag

  aktív tag

  válasz radam #9636 üzenetére

  Én Eric Wells: Developing Microsoft Excel 95 Solutions with Visual Basic for Applications könyvét vettem meg annak idején. Ma már nem költök könyvre. Ha vennék John Walkenbach könyvet vennék, vagy az Apress kiadó könyveit. Nem árulok el titkot, hogy ezek a Net sötét oldalán (nem legálisan) letölthetők.
  Ha beírod a google-be: excel vba tutorial egész jó oktató oldalakat találsz, angolul persze tudni kell egy bizonyos szinten. Ha túl vagy az alapokon akkor jöhet a Contextures, Chip Pearson és más Excel szakértők honlapjain a példák tanulmányozása.

• #9590 perfag aktív tag radam #9589

  Új Válasz 2011-03-02 13:06:43 #9590

  Ú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

  

  perfag

  aktív tag

  válasz radam #9589 üzenetére

  Tudja. Keresd az Adatok érvényesítése parancsot.

• #9586 bozsozso őstag radam #9585

  Új Válasz 2011-03-01 21:11:48 #9586

  Ú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

  

  bozsozso

  őstag

  válasz radam #9585 üzenetére

  kijeleölöd a 3 oszlopot majd jobb klikk cellaformázás majd védelem fül és zárolt elöl kiveszed a pipát, majd levéded a lapot jelszóval. csak abban a 3 oszlopban tudsz majd módosítani a többiben nem

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