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

• #52034 karlkani aktív tag morgusz #52033

  Új Válasz 2024-01-04 08:20:29 #52034

  Ú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

  

  karlkani

  aktív tag

  válasz morgusz #52033 üzenetére

  Az ÓRA(MOST()) NEM a pontos időt adja meg, hanem 1900.01.óra* 0:00-t.
  * 8 óra elmúlt, az érték 1900.01.08 0:00 (általános formátumban 8).

  Számoláskor ebből vonja ki, ami az A oszlopban szerepel. Ha a kapott érték 1-nél nagyobb, akkor megjelenik Az adatok nem frissek figyelmeztetés, ellenkező esetben a cella üres.

• #52032 Fferi50 Topikgazda morgusz #52030

  Új Válasz 2024-01-03 19:24:03 #52032

  Ú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 morgusz #52030 üzenetére

  Szia!
  E3 cella képlete:
  =HA(ÓRA(MOST())-A3>1;"Az adatok nem frissek";"")
  Üdv.

• #50396 lappy őstag morgusz #50395

  Új Válasz 2023-02-05 16:49:40 #50396

  Ú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

  

  lappy

  őstag

  válasz morgusz #50395 üzenetére

  Sub Runthree()
  'change macro names to suit
  Call Macro1
  Call Macro2
  Call Macro3

  End Sub

• #48437 Fferi50 Topikgazda morgusz #48436

  Új Válasz 2022-02-06 08:25:53 #48437

  Ú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 morgusz #48436 üzenetére

  Szia!
  Íme:
  Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
   If Left(ws.Name, 4) = "alap" Then
      With ws.Sort
         .SortFields.Clear
         .SortFields.Add2 Key:=Range("A1:AP1") _
         , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
         .SetRange Range("A1:AP150")
         .Header = xlYes
         .MatchCase = False
         .Orientation = xlLeftToRight
         .SortMethod = xlPinYin
         .Apply
      End With
   End If
Next
  Az alap - pal kezdődő nevű munkalapokon végrehajtja műveleteket. Nem szükséges minden munkalapot Select-tel kiválasztani - (azt csak a makrórögzítő csinálja).
  Üdv.

• #48117 Fferi50 Topikgazda morgusz #48116

  Új Válasz 2021-12-25 08:40:37 #48117

  Ú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 morgusz #48116 üzenetére

  Szia!
  Az értékadás előtt meg kell vizsgálni az eredményt, pl. így:
  Sub csere()
Dim cv As Object, eredm
For Each cv In Range("A1:H10000")
eredm=Application.VLookup(cv, Range("O1:P20"), 2, 0)
If Not isError(eredm) Then Range(cv.Address) =eredm
Next
End Sub
  Üdv.

• #45994 ny.janos tag morgusz #45992

  Új Válasz 2021-02-09 17:13:42 #45994

  Ú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

  

  ny.janos

  tag

  válasz morgusz #45992 üzenetére

  Előfordulhat (főként külső adatforrásból exportált adatok esetén), hogy olyan nem nyomtatható karaktereket tartalmaznak egyes cellák, amely karakterek nem láthatóak és úgy tűnik, mintha a cella üres lenne, holott valójában nem az. Segítség lehet a KIMETSZ, TISZTÍT és a HELYETTE függvény is.

  Kerülő megoldás lehet, hogy szűröd a tartományodat az üresnek tűnő cellákra, majd manuálisan törlöd azokat, hogy valóban üressé váljanak (ez viszont sok adat esetén körülményes lehet).

• #45993 lappy őstag morgusz #45992

  Új Válasz 2021-02-09 16:55:09 #45993

  Ú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

  

  lappy

  őstag

  válasz morgusz #45992 üzenetére

  Jó lenne látni legalább a függvényt hogy mit is tartalmaz, mert lehet benne olyan mi miatt annak veszi

• #45593 Lulu új lelkes újonc morgusz #45586

  Új Válasz 2020-12-17 11:36:28 #45593

  Ú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

  

  Lulu új

  lelkes újonc

  válasz morgusz #45586 üzenetére

  Köszönöm a segítséget!
  Az alapbetegségekkel kapcsolatos véleményedet vitatom! Egyes országok a statisztikájukban nem számolják azokat akiknek valamilyen betegségük volt. Pl. ha valakinek COPD betegsége van, ami gyógyíthatatlan, de karban tartható és a Covid 19 hatására a tüdeje összeomik, akkor nem Covid fertőzöttként szerepel a statisztikájukban. Nálunk, meg mindenki aki Covid 19 fertőzött és meghal, az szerepel a statisztikában!
  Evés közben jön meg az étvágy: szeretném azt is megállapítani, hogy melyek a leggyakoribb együttesen előforduló betegségek az elhunytaknál.

• #45592 zzz012 csendes tag morgusz #45590

  Új Válasz 2020-12-17 09:36:00 #45592

  Ú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

  

  zzz012

  csendes tag

  válasz morgusz #45590 üzenetére

  Jön egy megkeresés A-tól mondjuk 2-án 5-én 8-án akkor őt meg kellene jelölni mert teljesül a feltétel, hogy hét napon belül 3-szor volt, többet A-val nem kell foglalkozni az adott évben, de ha mondjuk 2-án 5-én 15-én jön akkor tovább figyelem, mert több mint hét nap telt el az első és az utolsó megkeresés közt, és ha pl 15-én 20-án 21-én van dátum akkor az jó,mert teljesül a hét napon belüli feltétel. Majd jön B, C D...., stb. Nem tudom elég érthetően írtam- e le.

• #45587 lappy őstag morgusz #45586

  Új Válasz 2020-12-16 16:00:12 #45587

  Ú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

  

  lappy

  őstag

  válasz morgusz #45586 üzenetére

  Tartomány jól van beállítálva?

• #45580 Fferi50 Topikgazda morgusz #45579

  Új Válasz 2020-12-15 22:59:48 #45580

  Ú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 morgusz #45579 üzenetére

  Szia!
  Egy segédoszlop első cellájába írd be az alábbi tömbképletet:
  =MAX(($A$1:$A$7=$A1)*SOR($A$1:$A$7))=SOR($A1)
  $A$7 -ben a 7 helyére írd az utolsó sorod számát.
  A tömbképletet Ctrl+Shift + Enterrel kell lezárni és az Excel kapcsos zárójelbe teszi.
  A képlet lehúzható a segédoszlopban.
  Eredménye IGAZ lesz, ahol az adott cikkszám utolsó előfordulása van, mindenütt máshol pedig HAMIS értéket ad.
  Ezután a segédoszlop alapján már tudsz szűrni az IGAZ értékekre.
  Üdv.

• #45504 lappy őstag morgusz #45503

  Új Válasz 2020-12-05 16:13:44 #45504

  Ú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

  

  lappy

  őstag

  válasz morgusz #45503 üzenetére

  Nem az excelben kell átállítani hanem a körlevélben a tulajdonságot
  { MERGEFIELD "a1" \@ "yyyy.MM.dd." }

• #38203 Mutt senior tag morgusz #38199

  Új Válasz 2018-06-03 23:02:56 #38203

  Ú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 morgusz #38199 üzenetére

  Szia,

  Delila megoldása mellett itt egy nem-makrós megoldás, ami Excel 2010 felett műkődik.
  Power Query kell hozzá, amit Excel 2010 esetén külön kell installálni.

  Lépés:
  1. Adatok -> Adatok beolvasása -> Fájlból -> Mappából
  
  2. Kiválasztod a mappát ahol a fájlok vannak, OK-t nyomsz és a Szerkesztés gombra kattintasz.
  3. Extension oszlopot kijelölöd, majd az Átalakítás fülön Formátum -> Nagybetűs opciót kiválasztod. Ezzel minden kiterjesztést nagybetűre konvertálunk, így ha véletlenül vki .XLS -ként menti el a fájlt, akkor is be fogjuk olvasni.
  
  4. Extension oszlop jobb sarkában található szűrővel kiválasztjuk a .XLS fájlokat.
  
  5. Name oszlop jobb sarkában a szűrővel kiválasztjuk a xyz kezdetű fájlokat (itt is lehet előtte egy nagybetűsítést csinálni).
  
  6. Kijelőlöd az első két oszlopot (Content és Name), majd jobb klikk a fejlécen (ahol látod hogy Content) és További oszlopok eltávolítását választod (ezzel a többi oszlop eltünik, nincs rájuk szükség)
  7. A Content oszlop jobb sarkában van két lefelé mutató nyíl (Fájlok kibontása), kattints rá. Ez elkezdi beolvasni a fájlokat, és felhoz egy mint ablakot, ahol válaszd ki a Munka1 lapot és nyomj okét. Dolgozni fog egy kicsit, de az összes fájlod Munka1 lapját be fogja tölteni.
  8. Jobb oldalt lesz egy csomó új lépés ennek eredményeként. A gond, hogy a korábban megtartott fájl nevet vhogy vissza kell kapni. A Többi oszlop eltávolítva 1-es lépésnél található fogaskerékre kattitnts és pipáld be a Name-t, hogy újra lássuk a fájlneveket. Ezek után kattints az utolsólépésre, mert innen folytatjuk.
  
  9. Oszlop hozzáadása menüben válaszd az Indexoszlopot.
  10. Most régi adósságot törlesszük, adjunk egy értelmes nevet a lekérdezésnek.
  Jobb oldalt a Tulajdonságok alatt a Név-ben van vmi (nekem temp, ami a könyvtár neve ahol voltak a fájlok). Adjunk vmi jobb nevet pl. Frissadatok
  
  11. Egy újabb furcsa lépés fog jönni, az eddigi művet lemásoljuk. Bal oldalon a Lekérdezések részben jobb klikk és Megkettőzést válaszd.
  
  12. Lett egy másolatunk, ami aktív is lett. Esetleg nevezzük át (pl. Utolsosorok), mert itt fogjuk megtudni, hogy az egyes fájlokban hol van az utolsó sor.
  13. Kezdőlapon Csoportosítási szempontra kattints. Csoportosítani fogunk a fájlnév alapján, Name oszlop, és amit keresünk az Index oszlop maximum értéke. Egy OK után meg is kapjuk a kért dolgokat. Itt végeztünk.
  
  14. Kattintsuk bal oldalt az Adatsorok lekérdezésre, mert most ezzel megyünk tovább.
  15. Kezdőlap fülön Összevonás -> Lekérdezések egyesítése jön. Ezzel az a célünk, hogy a korábban már megkapott utolsósorokat ebben a lekérdezésben meg tudjuk találni.
  Három részből áll az ablak: fent látjuk az aktuális lekérdezés képét, alatta lévő listában válasszuk ki az Utolsosorok lekérdezést (amit a 13-as lépésben véglegesítettünk). Meg kell mondanunk az Excelnek, hogy mely oszlopok azonossak a két lekérdezésben. A fenti táblában jelöld ki a Name és Index oszlopot (Ctrl-t kell majd nyomnod kattintáskor). Az alsó táblában is jelöld ki a Name és Index oszlopot. Fontos, hogy a fejlécekben látni fogsz egy kis sorszámot 1 és 2 (ez a kijelőlés sorrendje), ezeknek a sorszámoknak egyeznie kell mindkét táblában a helyes műkődésért.
  A harmadik dolog amit itt meg kell adnod az pedig a csatlakozás módja, ami nekünk most Belső (csak egyező sorok).
  
  16. Nyomj egy OK-t
  17. Végeredményt 3 felesleges oszlop fogja csúfitani, a fájlneve, az utolsósor száma és egy új oszlop amiben Table szöveg van. Ezeket töröljük. Jobb klikk az oszlop nevén és Eltávolítás.
  18. Kezdőlap -> Bezárás és betöltés -> .. adott helyre opcióval meg tudod mondani az Excelnek, hogy hova kéred az eredményt.
  

  Sok lépés ez, de segítség azoknak akiknek makróírás még távoli.

  Legközelebb pedig ha futtatnod kell, akkor az Adatok fülön Az összes frissítése opciót használod, vagy kattintasz a Lekérdezések és kapcsolatok gombra és a megjelenő panelen a Frissadatok lekérdezésen jobb klikk és Frissítés.

  üdv

• #38194 Delila_1 veterán morgusz #38190

  Új Válasz 2018-06-03 13:41:23 #38194

  Ú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 morgusz #38190 üzenetére

  Szívesen.

• #38188 Delila_1 veterán morgusz #38184

  Új Válasz 2018-06-03 06:56:35 #38188

  Ú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 morgusz #38184 üzenetére

  A Const utvonal-nál a saját útvonaladat add meg, ügyelve, hogy az utolsó karakter \ legyen.

  Sub Masolas()
Dim usorCel, usorFN, FN, Cel As Worksheet
Const utvonal = "D:\Adatok\Morgusz\" 'Itt add meg a saját útvonaladat
Set Cel = ActiveWorkbook.Sheets("Munka1")

Application.ScreenUpdating = False
ChDir utvonal 'Direktor váltás
FN = Dir(utvonal & "*.xls", vbNormal)
Do
If Left(FN, 3) = "xyz" Then
usorCel = Cel.Range("A" & Rows.Count).End(xlUp).Row + 1 'céllap első üres sora

'Fájlok behívása
Workbooks.Open Filename:=utvonal & FN
usorFN = Sheets("Munka1").Range("A" & Rows.Count).End(xlUp).Row 'alsó sor a megnyitottban
Range("A" & usorFN & ":J" & usorFN).Copy Cel.Range("A" & usorCel)
ActiveWindow.Close False 'megnyitott fájl bezárása módosítás nélkül
End If
FN = Dir()
Loop Until FN = ""
Application.ScreenUpdating = True
MsgBox "Kész van az adatok bemásolása", vbInformation, "Értesítés"
End Sub

• #32802 Fferi50 Topikgazda morgusz #32801

  Új Válasz 2016-09-28 17:45:11 #32802

  Ú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 morgusz #32801 üzenetére

  Szia!

  Szerintem a
  Set Email = Outlookprogi.CreateItem(0)
On Error Resume Next
For xx = 2 To 100
If IsEmpty(Cells(xx, "I")) Then Exit For
If Cells(xx, "S") = "küldhető" And Cells(xx, "M") = 1 Then
  programrészt kellene átírni így:

  On Error Resume Next
For xx = 2 To 100
If IsEmpty(Cells(xx, "I")) Then Exit For
If Cells(xx, "S") = "küldhető" And Cells(xx, "M") = 1 Then
Set Email = Outlookprogi.CreateItem(0) 'abban nem vagyok biztos, hogy mindig (0) paraméter kell, lehetséges, hogy azt is kell növelni, ezt próbáld ki lsz.

  Az elküldése szerintem a .send lehet (de ez csak tipp, nézd meg lsz.)

  Üdv.

• #32794 Fferi50 Topikgazda morgusz #32787

  Új Válasz 2016-09-27 16:54:59 #32794

  Ú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 morgusz #32787 üzenetére

  Szia!

  Lehetne pl. így

  Dim Outlookprogi As Object
Dim Email As Object
Dim xx As Integer
Set Outlookprogi = CreateObject("Outlook.Application")
Set Email = Outlookprogi.CreateItem(0)
On Error Resume Next
For xx = 2 To 100
If IsEmpty(Cells(xx, "I")) Then Exit For
If Cells(xx, "S") = "küldhető" And Cells(xx, "M") = 1 Then
With Email
.to = "F"
.CC = "P"
.Subject = Cells(xx, "W").Value 'ActiveCell.Offset(0, 11).Value L+11 oszlop
.Body = Cells(xx, "A").Value ' ActiveCell.Offset(0, -11).Value L-11 oszlop
.Display
End With
End If
Next
Set Email = Nothing
Set Outlookprogi = Nothing

  Az On Error Resume Next sorral nem tudom, mit szerettél volna elérni, így önmagában nem sokat ér, csak annyit, hogy hiba esetén nem áll meg a program és nem tudod meg, hogy hiba volt - pl. nem tudta létrehozni az email objektumot, de rendületlenül készítgeti a semmit...

  Üdv.

• #28178 poffsoft veterán morgusz #28177

  Új Válasz 2015-08-22 09:38:34 #28178

  Ú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

  

  poffsoft

  veterán

  válasz morgusz #28177 üzenetére

  scol = ((i - 1) * 9) + 2
  ecol = ((i - 1) * 9) + 9

• #28176 poffsoft veterán morgusz #28171

  Új Válasz 2015-08-21 19:22:23 #28176

  Ú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

  

  poffsoft

  veterán

  válasz morgusz #28171 üzenetére

  upsz, kis hiba maradt,
  az a selection.clear nem kell a vége felé!

  Sub proba()
  Dim lista() As String
  Dim i As Long
  Dim usor As Long ' last used row in source sheet
  Dim lrow As Long ' last row in this sheet
  Dim scol As Long ' first column of actual formulas source
  Dim ecol As Long ' last column of actual formulas source
  
  lista = Split("Munka1,Munka2,Munka3,Munka4,Munka5,Munka6,Munka7,Munka8,Munka9", ",")
  Worksheets(lista(0)).Activate
  For i = 1 To UBound(lista)
  usor = Worksheets(lista(i)).UsedRange.Rows.Count
  scol = ((i - 1) * 4) + 1
  ecol = ((i - 1) * 4) + 3
  lrow = Range(Cells(3, scol), Cells(Rows.Count, ecol)).End(xlUp).Row
  If lrow < 3 Then lrow = 3
  
  ActiveSheet.Range(Cells(3, scol), Cells(lrow, ecol)).Clear
  
  Range(Cells(2, scol), Cells(2, ecol)).Copy Destination:=Range(Cells(3, scol), Cells(usor, ecol))
  Next i
  End Sub

• #28175 poffsoft veterán morgusz #28171

  Új Válasz 2015-08-21 18:56:45 #28175

  Ú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

  

  poffsoft

  veterán

  válasz morgusz #28171 üzenetére

  Sub proba()
  Dim lista() As String
  Dim i As Long
  Dim usor As Long ' last used row in source sheet
  Dim lrow As Long 'last row in this sheet
  Dim scol As Long ' first column of actual formulas source
  Dim ecol As Long ' last column of actual formulas source
  
  lista = Split("Munka1,Munka2,Munka3,Munka4,Munka5,Munka6,Munka7,Munka8,Munka9", ",")
  Worksheets(lista(0)).Activate
  For i = 1 To UBound(lista)
  usor = Worksheets(lista(i)).UsedRange.Rows.Count
  scol = ((i - 1) * 4) + 1
  ecol = ((i - 1) * 4) + 3
  lrow = Range(Cells(3, scol), Cells(Rows.Count, ecol)).End(xlUp).Row
  If lrow < 3 Then lrow = 3
  
  ActiveSheet.Range(Cells(3, scol), Cells(lrow, ecol)).Clear
  Selection.Clear
  Range(Cells(2, scol), Cells(2, ecol)).Copy Destination:=Range(Cells(3, scol), Cells(usor, ecol))
  Next i
  End Sub

  a lista=split( után az idézőjelek között vesszővel elválasztva kellenek a munkalapnevek.
  Munka1 az összesítő lap neve, a többi pedig a források, ahogyan mondtad, Munka2-től Munka9-ig.

• #27452 lappy őstag morgusz #27451

  Új Válasz 2015-06-20 18:31:35 #27452

  Ú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

  

  lappy

  őstag

  válasz morgusz #27451 üzenetére

  http://windowssecrets.com/forums/showthread.php/166691-Automatically-send-email-based-on-Excel-cell-values-(Macro)
  Nézd meg ezt

• #27363 Delila_1 veterán morgusz #27362

  Új Válasz 2015-06-16 08:49:15 #27363

  Ú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 morgusz #27362 üzenetére

  Óhajod parancs.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 9 Or Target.Column = 13 Or Target.Column = 17 Then
  Application.EnableEvents = False
  Target.Offset(, 1) = Date
  Application.EnableEvents = True
  End If
  End Sub

• #27324 Delila_1 veterán morgusz #27323

  Új Válasz 2015-06-12 18:09:13 #27324

  Ú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 morgusz #27323 üzenetére

  Ez könnyen megoldható.
  A lapfülön jobb klikk, Kód megjelenítése. Ezzel bejutottál a VB szerkesztőbe. A jobb oldalon lévő nagy üres mezőbe másold be a makrót:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  Target.Offset(, 1) = Date
  Application.EnableEvents = True
  End Sub

  Bezárod az ablakot a szokásos X-szel, és már töltheted is tovább a táblázatodat.

• #19874 Delila_1 veterán morgusz #19873

  Új Válasz 2013-12-17 10:22:37 #19874

  Ú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 morgusz #19873 üzenetére

  A 2007-es változattól létezik az Adatok | Adateszközök menüben az ismétlődések eltávolítása. Ezzel megoldhatod.

  Régebbi verziókban az Adatok | Szűrő | Irányított szűrő menüponttal oldhatod meg.

• #19702 Delila_1 veterán morgusz #19697

  Új Válasz 2013-12-01 14:06:56 #19702

  Ú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 morgusz #19697 üzenetére

  Nem tartalmaznak az üresnek látszó cellák esetleg képletet, vagy formázást?

• #19695 Delila_1 veterán morgusz #19693

  Új Válasz 2013-11-30 11:24:29 #19695

  Ú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 morgusz #19693 üzenetére

  Valószínűleg angol Excelt használsz. Ebben az esetben a forma "hh.nn" helyett "mm.dd" legyen.

• #19658 Delila_1 veterán morgusz #19656

  Új Válasz 2013-11-27 07:59:49 #19658

  Ú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 morgusz #19656 üzenetére

  1.
  Workbooks.Open Filename:="D:\előkészítés+\AVO\Avo " & Format(Date, "hh.nn") & ".xls"

  2.
  Sheets("Eredmény CH").Activate
  Range("A1").Select
  Selection.CurrentRegion.Copy

• #19338 Mutt senior tag morgusz #19331

  Új Válasz 2013-10-19 21:07:55 #19338

  Ú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 morgusz #19331 üzenetére

  Hello,

  1. Szeretnék megoldást találni arra, hogy a makró által átalakított, új néven mentendő file nevében benne legyen az aktuális dátum.

  vegsonev = filenev & "_" & Format(Date, "yyyy_mm_dd")
  Ahogy látod Date függvény kell neked, esetleg formázhatod is a kedvedre.

  2. Nem értem, hogy a makró rögzítésekor CSV-ként mentett XLS fájl, miért más formátumú a makró későbbi futtatásakor mint a rögzítéskor.
  A kód nélkül nem tudunk erre választ adni.

  3. Hogy lehet megoldani makróval, azonos oszlopkból és naponta változó számú sorból álló, adatokat tartalmazó cellatartomány másolását

  Range("A1").CurrentRegion.Copy Destination:=cel
  Adj meg egy cellát (pl. A1) a tartományban (üres sorok és oszlopok közötti összefüggő nem-üres cellák halmaza) és CurrentRegion-nal tudod kezelni egyben.

  Ha van üres sor/oszlop, akkor más technika kell (pl. Range("A"&Rows.Count).End(xlUp).Row)

  üdv.

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