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

• #3634 Delila_1 veterán FehérHolló #3633

  Új Válasz 2008-06-06 19:13:47 #3634

  Ú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 FehérHolló #3633 üzenetére

  Kipróbáltam. Ha meghagyod az eredeti Range("I" & Target.Columns).Select-et a
  Cells(Target.Row, 9).Select helyett, akkor hiba nélkül működik.

  Akkor most véletlenül kiderült, hogy a formai különbségnek látszó eltérés a működésben is mást eredményt ad.

  Jó szórakozást!

• #3631 Delila_1 veterán FehérHolló #3628

  Új Válasz 2008-06-06 16:31:45 #3631

  Ú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 FehérHolló #3628 üzenetére

  Itt egy kis makró, ami a fájl bezárásakor rákérdez a rendezésre (I oszlop szerint):

  Sub auto_close()
  If MsgBox("Akarod rendezni mentés előtt az adatokat?", vbYesNo) = vbYes Then
  Range("I2").Select
  Selection.Sort Key1:=Range("I2"), Order1:=xlAscending, Header:=xlGuess, _
  OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
  End If
  ActiveWorkbook.Save
  End Sub

  Fontos, hogy auto_close legyen a neve, mert akkor automatikusan végrehajtódik záráskor.

  Ha még ugyanarról a fájlról van szó, amelyikben B:G oszlopokban van adat, és I-be íródik a dátum, akkor gondoskodni kell a H oszlop kitöltéséről, hogy a rendezésbe belevegye az előző oszlopokat is. Ha üres oszlop van közöttük, csak az I oszlopot rendezi.
  A H-ba, ha egyébként nem lenne ott adat, a targetes makróval íratunk egy pontot. Az
  If (Target.Column >1 kezdetű sor után írd be:
  Cells(8,Target.Column)="."

  Ha nincs fejléced, a Header:=xlGuess-t javítsd át Header:=xlNo-ra.

• #3630 Delila_1 veterán FehérHolló #3626

  Új Válasz 2008-06-06 15:19:27 #3630

  Ú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 FehérHolló #3626 üzenetére

  Látom, egy kulcs szerint akarsz rendezni. Szerintem sem érdemes makrót futtatni, a kulcsot képező oszlopban állva egyetlen kattintás, és kész, ki sem kell jelölni a táblát.
  Legfeljebb zárás előtt egy inputboxban (vagy msgboxban) rákérdezel, hogy akar-e rendezni, és igen esetén egyszer lefuttatni.

• #3627 lapa veterán FehérHolló #3626

  Új Válasz 2008-06-06 11:37:25 #3627

  Ú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

  

  lapa

  veterán

  válasz FehérHolló #3626 üzenetére

  próbáld meg kétdimenziós tömbbe (array) rakni, korábban volt róla szó. utána azon futhat le a két for-next. nagyjából két nagyságrenddel meggyorsítja.

• #3620 Delila_1 veterán FehérHolló #3619

  Új Válasz 2008-06-06 06:21:27 #3620

  Ú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 FehérHolló #3619 üzenetére

  Függvény nincs rá, rögzíts makróban egy sorbarendezést, és azt vesézd ki.

• #3619 FehérHolló veterán FehérHolló #3617

  Új Válasz 2008-06-06 00:00:01 #3619

  Ú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

  

  FehérHolló

  veterán

  válasz FehérHolló #3617 üzenetére

  Megoldva. Cells(CurrRow, CurrCol).Select.
  (Változóknak van érték adva.)

  Sorba rendezés milyen függvénnyel megy? Kezdek belemelegedni.

• #3616 Delila_1 veterán FehérHolló #3614

  Új Válasz 2008-06-05 20:54:40 #3616

  Ú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 FehérHolló #3614 üzenetére

  A #3600-nál azt mondtad, hogy tökéletesen működik. Másik gépen nem megy?

• #3615 Delila_1 veterán FehérHolló #3614

  Új Válasz 2008-06-05 20:52:47 #3615

  Ú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 FehérHolló #3614 üzenetére

  A "Nem tudom"-ot? Nagyon szívesen, máskor is.

• #3612 Delila_1 veterán FehérHolló #3611

  Új Válasz 2008-06-05 18:40:02 #3612

  Ú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 FehérHolló #3611 üzenetére

  Nem tudom.

• #3607 Delila_1 veterán FehérHolló #3602

  Új Válasz 2008-06-05 06:13:08 #3607

  Ú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 FehérHolló #3602 üzenetére

  Az Eszközök/Bővítménykezelőben kapcsold be az Analysis ToolPak-ot és az Analysis ToolPak-VBA-t. Az első egy halom új függvényt ad, amiket a munkalapodon alkalmazhatsz, a másik ugyanezt adja a VBA felületen, amiktől értelmezhetővé válnak a makrók utasításai az Excel számára.

• #3601 Delila_1 veterán FehérHolló #3600

  Új Válasz 2008-06-02 10:50:39 #3601

  Ú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 FehérHolló #3600 üzenetére

  Szívesen.

• #3599 Delila_1 veterán FehérHolló #3597

  Új Válasz 2008-06-02 10:41:00 #3599

  Ú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 FehérHolló #3597 üzenetére

  Ez, a laphoz rendelve azt csinálja.

  Sub Worksheet_Change(ByVal Target As Excel.Range)
  If (Target.Column > 1 And Target.Column < 8) Then
  Range("I" & Target.Row).Select
  ActiveCell.FormulaR1C1 = "= TODAY()"
  Selection.Copy
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
  Application.CutCopyMode = False
  End If
  End Sub

• #3582 Delila_1 veterán FehérHolló #3577

  Új Válasz 2008-05-28 08:34:21 #3582

  Ú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 FehérHolló #3577 üzenetére

  Sub Worksheet_Change(ByVal Target As Excel.Range)
  If (Target.Column > 3 And Target.Column < 8 And Target.Row < 11) Then
  Range("A1").Select
  ActiveCell.FormulaR1C1 = "= TODAY()"
  Selection.Copy
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
  Application.CutCopyMode = False
  End If
  End Sub

  Ez a kis makró a munkalaphoz rendelve (lapfülön jobb klikk, kód megjelenítése, VBE-ben a jobb oldalon kapott üres lapra másolva) azt csinálja, hogy ha a D1:G10 tartományban módosul az adat, az A1-be beírja az aktuális dátumot a MA() függvénnyel, és rögtön át is írja a függvényt az értékére.

• #3581 Delila_1 veterán FehérHolló #3577

  Új Válasz 2008-05-27 21:15:30 #3581

  Ú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 FehérHolló #3577 üzenetére

  Targettel kellene megoldani, a laphoz rendelt makróval.

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