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

• #40970 Lasersailing senior tag JagdPanther #40957

  Új Válasz 2019-05-03 09:56:28 #40970

  Ú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

  

  Lasersailing

  senior tag

  válasz JagdPanther #40957 üzenetére

  Szia,

  Én (amikor már 100%-ban biztos vagyok abban, hogy a makró megbízhatóan működik), akkor az alábbiak segítségével szoktam felgyorsítani a makró futtatását:
  Excel képletek frissítésének kikapcsolása:
  Application.Calculation = xlManual
  majd később visszakapcsolása:
  Application.Calculation = xlCalculationAutomatic

  (Értelemszerűen amíg ki van kapcsolva, addig nem kalkulálja újra a képleteket)

  Ill. ha sokáig dolgozik magában, azaz mindegy a képernyő tartalma:
  Application.ScreenUpdating = False
  Majd visszakapcsolni:
  Application.ScreenUpdating = True

  Itt persze azért kell figyelni, mert ha közben megáll a makró, akkor kijelzőn nem fogsz látni semmit, szóval ezt csak akkor, ha nagyon sokáig fut a makró (nagyon sokat gyorsít rajta) és már tutira nem fog lefagyni...

• #40959 Fferi50 Topikgazda JagdPanther #40957

  Új Válasz 2019-05-02 14:43:26 #40959

  Ú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 JagdPanther #40957 üzenetére

  Szia!

  Mivel nincsenek számítások benne, igazából majdnem mindegy hány sor van... persze minél több a sor, annál tovább tart a beszúrás és a törlés, de nem észrevehető pár százas nagyságrendben szerintem.
  Viszont egyszerűsíthető a dolog, ha az 5. sortól kezdve táblázattá alakítod az egészet (kijelölöd, beszúrás - táblázat fejléccel), mivel a táblázatba beszúrás automatikusan felveszi a táblázat szabályait (formázás, validáció), tehát azzal nem kell foglalkozni. Elég csak az új értékeket beírni.
  Gyorsít még a dolgon, ha a Select utasításokat elhagyod, a cellákra a címükkel közvetlenül tudsz hivatkozni.
  Pl.
  Sheets("Bevitel").Range("H6").Value = Date

  (igen, a makrórögzítő a selectet is rögzíti meg a sorgördítést is... ezeket szépen ki kell gyomlálni.)

  Üdv.

• #40958 Delila_1 veterán JagdPanther #40957

  Új Válasz 2019-05-02 14:42:46 #40958

  Ú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 JagdPanther #40957 üzenetére

  Nem lassít majd a sok sor, mert mindig a 6. sorba viszed be az új adatokat.
  Azért egy kicsit egyszerűsítettem a makrókon.

  Sub Ma()
Sheets("Bevitel").Select
Rows(6).EntireRow.Insert Shift:=xlDown
Range("B6") = Date

Range("E6").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Adat!$F$2:$F$8"

Range("F6").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Adat!$L$2:$L$3"

Range("C7:I7").Copy
Range("C6:I6").PasteSpecial xlPasteFormats

Range("J7").Copy
Range("J6").PasteSpecial Paste:=xlPasteAll

Range("C6").Select
End Sub

  Sub Megse()
Rows(6).Delete Shift:=xlUp
End Sub

  Sub Hibakiadva()
Cells(6, "H") = Date
End Sub

  Sub Hibaelvegezve()
Cells(6, "I") = Date
End Sub

  [ Szerkesztve ]

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #40876 Pakliman tag JagdPanther #40873

  Új Válasz 2019-04-24 06:52:55 #40876

  Ú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 JagdPanther #40873 üzenetére

  A 6 helyett:
  For row_number = 2 To Worksheets("Lista1").Cells(Worksheets("Lista1").Cells.Rows.Count, 1).End(xlUp).Row

  [ Szerkesztve ]

• #40872 Fferi50 Topikgazda JagdPanther #40870

  Új Válasz 2019-04-23 13:49:12 #40872

  Ú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 JagdPanther #40870 üzenetére

  Szia!

  Ahhoz, hogy tudd használni az Outlook változóit a makróban, a Referenciák közé fel kell venni az Outlook referencia könyvtárát - pl. Microsoft Outlook 16.0 Object Library - a Tools - References menüpontban.
  Utána deklarálhatod az olApp változót mint Outlook.Application.
  Egyébként csak Object -ként deklarálva működik.
  (Ez utóbbi esetben viszont nem hozza fel automatikusan az Outlook objektumait.)
  A referenciát makróból is hozzá lehet adni a projekthez, mielőtt elindítanád a meghívást.

  Üdv.

  [ Szerkesztve ]

• #40871 Pakliman tag JagdPanther #40870

  Új Válasz 2019-04-23 13:30:45 #40871

  Ú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 JagdPanther #40870 üzenetére

  Szia!

  Ennek így működnie kell:
  Public Sub SendEmail()
Dim olApp As Object
Dim olMail As Object
Dim row_number As Long

Set olApp = CreateObject("Outlook.Application")

On Error Resume Next
For row_number = 2 To 6
Set olMail = olApp.CreateItem(0)
With olMail
.to = Worksheets("Lista1").Cells(row_number, 1)
.Subject = Worksheets("Lista1").Cells(row_number, 2)
.Body = Worksheets("Lista1").Cells(row_number, 3)
.send
End With
Next row_number
On Error GoTo 0

Set olMail = Nothing
Set olApp = Nothing
End Sub

  Javítottam...

  [ Szerkesztve ]

• #36603 Pakliman tag JagdPanther #36601

  Új Válasz 2017-11-21 12:48:21 #36603

  Ú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 JagdPanther #36601 üzenetére

  Az NRow = 4 helyett meg kellene határoznod a jelenlegi utolsó sort:

  Pl.:
  NRow = SummarySheet.Cells.Find(What:="*", _
After:=SummarySheet.Cells.Range("A1"), _
SearchDirection:=xlPrevious, _
LookIn:=xlValues, _
SearchOrder:=xlByRows).Row

  A másolandónál:
  Meghatározod a másolandó munkalap utolsó sorát, aztán:
  WorkBk.Worksheets(1).Range("A6:V" & LastRow).Copy (Biztos, hogy "A6"?)
  SummarySheet.Cells(NRow + 1, 1).PasteSpecial Paste:=xlPasteValues (ha csak az érték kell)

  [ Szerkesztve ]

• #36602 Pakliman tag JagdPanther #36601

  Új Válasz 2017-11-21 12:23:50 #36602

  Ú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 JagdPanther #36601 üzenetére

  Közben átnéztem a kódodat, az alábbi már tárgytalan...

  [Ebben] a hozzászólásban van az utolsó használt sor ill. oszlop meghatározására használt makróm, próbáld ki.
  NEM azonos a "SpecialCells()" metódussal!

  [ Szerkesztve ]

• #35829 Fferi50 Topikgazda JagdPanther #35828

  Új Válasz 2017-07-27 10:57:31 #35829

  Ú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 JagdPanther #35828 üzenetére

  Szia!

  Ha csak a minimum/maximum érdekel, akkor használd a Solver bővítményt.
  Ha magára a sorozatra is kíváncsi vagy:
  Trendet, extrapolálást tud az Excel a Solver nélkül is mutatni, de ahhoz kell az alap sorozat, amit képlet alapján számíthatsz. Ehhez manuálisan tudod létrehozni az adatsort, pl.
  Első sorba beírod a változó adataidat a kívánt léptékkel.
  A második sorba beírod képletként =az eredménycella. Ezt végig is húzhatod a soron.
  Ezután a változó értékeket szép sorban behelyettesíted a táblázatodba. A második sor adott cellájában megkapott eredményt átalakítod értékké, hogy ne változzon, amikor a következő értéket adod a változónak. Ezt ismétled, amíg végig nem érsz a tartományon.
  Ha elég egyértelmű az összefüggés, akkor elég lehet az első 8-10 tételt így kiszámolnod.
  Ezután ezt ráteszed egy diagramra, ahol már tudsz extrapolálni.

  Üdv.

• #35627 Delila_1 veterán JagdPanther #35625

  Új Válasz 2017-07-03 15:10:03 #35627

  Ú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 JagdPanther #35625 üzenetére

  Örülök, hogy sikerült, szívesen.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #35623 Delila_1 veterán JagdPanther #35622

  Új Válasz 2017-07-03 14:15:25 #35623

  Ú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 JagdPanther #35622 üzenetére

  Töröld a laphoz rendelt makrót, a modulban lévőt írd át.

  Sub Masol()
Dim sor As Long
sor = Selection.Row
With Sheets("Számla")
.Range("B12") = Cells(sor, "E")
.Range("B28") = Cells(sor, "F")
.Range("H12") = Cells(sor, "J")
.Range("D10") = Cells(sor, "N")
End With
End Sub

  A füzetben a Makrók menüben (Alt + F8), a Masol makrót kiválasztva az Egyebek almenüben bill. kombinációt rendelhetsz hozzá.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #35621 Delila_1 veterán JagdPanther #35619

  Új Válasz 2017-07-03 12:26:17 #35621

  Ú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 JagdPanther #35619 üzenetére

  Az Ebay laphoz rendeltem egy makrót.

  Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Masol Target.Row
Cancel = True
End Sub

  Modulba jön a másik.

  Sub Masol(sor)
With Sheets("Számla")
.Range("B12") = Cells(sor, "E")
.Range("B28") = Cells(sor, "F")
.Range("H12") = Cells(sor, "J")
.Range("D10") = Cells(sor, "N")
End With
End Sub

  Az Ebay lapon egy sor valamelyik celláján jobb klikk, indul az eseményvezérelt makró, majd indítja a másolást.
  Rendelheted más eseményhez is.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #31685 Delila_1 veterán JagdPanther #31684

  Új Válasz 2016-06-01 06:00:51 #31685

  Ú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 JagdPanther #31684 üzenetére

  Bocsi az elírásért!

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #31682 Fferi50 Topikgazda JagdPanther #31680

  Új Válasz 2016-05-31 16:00:06 #31682

  Ú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 JagdPanther #31680 üzenetére

  Szia!

  Private SUB Sortores()

  A SUB kulcsszó hiányzik a makró elejéről.

  Üdv.

• #31681 Delila_1 veterán JagdPanther #31680

  Új Válasz 2016-05-31 13:22:49 #31681

  Ú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 JagdPanther #31680 üzenetére

  Töröld ki az első makrót.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #31679 Delila_1 veterán JagdPanther #31678

  Új Válasz 2016-05-31 13:02:42 #31679

  Ú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 JagdPanther #31678 üzenetére

  Private Sortores()
  Cells(Selection.Row, 4) = Cells(Selection.Row, 4) & Chr(10)
  Cells(Selection.Row, 5) = Cells(Selection.Row, 5) & Chr(10)
  Cells(Selection.Row, 10) = Cells(Selection.Row, 10) & Chr(10)
  End Sub

  Beviszed ezt egy modulba (lásd Téma összefoglaló).
  A füzetben Alt+F8-ra megjelennek a makróid. Kiválasztod a Sortores nevűt, Egyebek gomb. Ott megadhatod a bill. kombinációt.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #31676 edari őstag JagdPanther #31675

  Új Válasz 2016-05-31 12:06:28 #31676

  Ú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

  

  edari

  őstag

  válasz JagdPanther #31675 üzenetére

  Ja, az kimaradt hogy makró kéne rá. Bocsi.

• #31674 edari őstag JagdPanther #31673

  Új Válasz 2016-05-31 11:44:18 #31674

  Ú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

  

  edari

  őstag

  válasz JagdPanther #31673 üzenetére

  Kattints bele vagy állj rá a cellára, nyomj egy f2-t, menj a sor végére, és ott nyomj alt+entert.

• #12099 Delila_1 veterán JagdPanther #12098

  Új Válasz 2011-11-22 16:17:37 #12099

  Ú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 JagdPanther #12098 üzenetére

  Szívesen.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #12097 Delila_1 veterán JagdPanther #12096

  Új Válasz 2011-11-22 16:06:40 #12097

  Ú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 JagdPanther #12096 üzenetére

  D1-be írtam a keresendő értéket, a számok az A oszlopban vannak.

  A képlet
  =HOL.VAN(D1;A:A;1)+1

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #12095 perfag aktív tag JagdPanther #12094

  Új Válasz 2011-11-22 15:52:44 #12095

  Ú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 JagdPanther #12094 üzenetére

  Nem túl bonyolult, én mégsem értem. 50 érték az többes szám, "szeretném kiírni egy külön cellába annak a cellának a sorszámát, aminek az értéke nagyobb mint egy megadott érték." ez meg itt egyes szám. Most akkor mi van? (Mi lenne, szőke vagyok )

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