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

• alfa20 senior tag

  2017-08-19 18:05:41 #36000

  Új Válasz

  Ú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

  

  alfa20

  senior tag

  válasz Fferi50 üzenetére #35986

  Szia!
  Köszi, még nem volt időm foglalkozni vele, de azért köszi.

• Delila_1 veterán

  2017-08-19 14:11:40 #35999

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz PerezT üzenetére #35998

  Szívesen, máskor is.

• PerezT csendes tag

  2017-08-19 14:10:04 #35998

  Új Válasz

  Ú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

  

  PerezT

  csendes tag

  válasz Delila_1 üzenetére #35997

  Igazán köszönöm, nem mondom, hogy nem bonyolultabb mint gondoltam, de hát ezért nem tudtam meg csinálni én
  Köszönöm még egyszer a gyors és szakszerű segítséget

• Delila_1 veterán

  2017-08-19 14:03:51 #35997

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz PerezT üzenetére #35996

  3 helyen, a csillagozott sorokban kell módosítanod a makrót.
  Nálam Munka1 a kiinduló lap neve, és Munka2, ahova átrendezve bemásolja az értékeket.

  A sorIde = 1: oszlopIde = 1 változók értékei adják meg, hogy a 2. lapon hol kezdődjön a tábla, ami itt az A1-es cella sora, és oszlopa.

  Sub transz()
Dim sor As Long, usor As Long, sorIde As Long
Dim oszlop As Integer, uoszlop As Integer, oszlopIde As Integer

Sheets("Munka1").Select '***
uoszlop = Cells(1, Columns.Count).End(xlToLeft).Column
usor = Range("A" & Rows.Count).End(xlUp).Row
sorIde = 1: oszlopIde = 1 '***

With Sheets("Munka2") '***
For oszlop = 2 To uoszlop
For sor = 2 To usor
.Cells(sorIde, oszlopIde) = Cells(1, oszlop)
If Cells(sor, oszlop) > "" Then
.Cells(sorIde, oszlopIde + 1) = Cells(sor, 1)
.Cells(sorIde, oszlopIde + 2) = Cells(sor, oszlop)
sorIde = sorIde + 1
End If
Next
Next
End With
End Sub

• PerezT csendes tag

  2017-08-19 12:53:39 #35996

  Új Válasz

  Ú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

  

  PerezT

  csendes tag

  válasz Delila_1 üzenetére #35995

  Köszönöm a gyors és szakszerű választ
  Nagyon tetszik a megoldás, arra van lehetőség amúgy, hogy egy másik munkalapra transzportálja az adatokat?
  Biztos van, csak hova is kell beírni a munkalap nevét?

  sorIde = 1: oszlopIde = 15 ......gondolom valahova ide??

• Delila_1 veterán

  2017-08-19 07:47:08 #35995

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz PerezT üzenetére #35994

  Arra az esetre, ha az első táblázatod az A1 cellában kezdődik, egy makró gyorsan átmásolja a kívánt formába az adataidat. A makrót modulba kell tenned (lásd a Téma összefoglalóban).

  Sub transz()
Dim sor As Long, usor As Long, sorIde As Long
Dim oszlop As Integer, uoszlop As Integer, oszlopIde As Integer

uoszlop = Cells(1, Columns.Count).End(xlToLeft).Column
usor = Range("A" & Rows.Count).End(xlUp).Row
sorIde = 1: oszlopIde = 15

For oszlop = 2 To uoszlop
For sor = 2 To usor
Cells(sorIde, oszlopIde) = Cells(1, oszlop)
If Cells(sor, oszlop) > "" Then
Cells(sorIde, oszlopIde + 1) = Cells(sor, 1)
Cells(sorIde, oszlopIde + 2) = Cells(sor, oszlop)
sorIde = sorIde + 1
End If
Next
Next
End Sub

• PerezT csendes tag

  2017-08-18 23:18:33 #35994

  Új Válasz

  Ú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

  

  PerezT

  csendes tag

  Hello,
  Egy kis segítség kéne egy probléma megoldásában:
  Az alábbi kép felső részén látható táblázatban vannak adataim, és át akarom úgy alakítani, hogy az alsó táblázathoz hasonló formátumban legyen látható.
  Tehát valami olyasmi kéne - gondolom - hogy a táblázatban keressen olyan cellákat amik tartalmaznak számot, és nem nulla, majd ezt a számot írja ki egy sorba az oszlop illetve a sor legelső cellájának értékével.
  Örülnék ha valami Excel-Guru ebben tudna támpontot adni.
  Előre is köszönöm.

  

• Mela Kehes addikt

  2017-08-18 13:56:04 #35993

  Új Válasz

  Ú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

  

  Mela Kehes

  addikt

  válasz Fferi50 üzenetére #35991

  Szuper, köszi!

• kezdosql tag

  2017-08-18 13:54:33 #35992

  Új Válasz

  Ú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

  

  kezdosql

  tag

  válasz kezdosql üzenetére #35980

  Erre senkinek semi?

• Fferi50 Topikgazda

  2017-08-18 08:33:43 #35991

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz Mela Kehes üzenetére #35990

  Szia!

  Használd a * (csillag) joker karaktert a kereséshez:
  "*keres*" minden olyan tétel, amiben a keres előfordul
  "*keres" minden olyan tétel, ami keresre végződik
  "keres*" minden olyan tétel, ami keressel kezdődik.

  Üdv.

• Mela Kehes addikt

  2017-08-18 07:17:08 #35990

  Új Válasz

  Ú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

  

  Mela Kehes

  addikt

  Sziasztok!

  A COUNTIFS függvénynél hogyan lehet megodani, hogy a keresendő oszlopban ne pontos szövegre, hanem csak egy részletre keressen. Pl.: az oszlopban nevek vannak rendszámmal. Minden névhez egy rendszám (egy cellán belül). Na most van olyan aki közben lecserélte az autót és a rendszám megváltozott. Eddig úgy csináltam, hogy az egész cella tartalmára rákerestem, de ez már nem fog működni mert két különböző rendszám van és akkor az újat már nem számolja bele.

  Köszi

• Ptech addikt

  2017-08-17 13:50:39 #35989

  Új Válasz

  Ú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

  

  Ptech

  addikt

  válasz Fferi50 üzenetére #35988

  Igy már szuper lesz, köszi szépen a segitséget!

• Fferi50 Topikgazda

  2017-08-16 22:50:36 #35988

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz Ptech üzenetére #35981

  Szia!

  "az egyetlen baj, hogy nem minden pivotban 'Status' a PivotField neve, itt akadtam el igazából."

  Akkor nincs más lehetőséged, mint legalább egyszer végignézni "kézzel" a Pivottáblákat, hogy megállapíthasd, melyik Pivotfielddel kell dolgozni. Ezt beleteheted pl. feltételbe:
  Dim PTF as PivotField
Select Case PT.Name
Case "Elso"
Set PTF = PT.Pivotfields("EZ")
Case "Masodik"
Set PTF = PT.Pivotfields("AZ")
'.ide írod a többi lehetőséget
'.
End Select
With PTF
For Each PvI In .PivotItems
Select Case PvI.Name
Case "(blank)"
PvI.Visible = False
Case Else
PvI.Visible = True
End Select
Next
End With
  Esetleg listába teszed a PivotField neveket:
  Dim Nevek as String,PTF as Pivotfield
Nevek="Elso,Masodik....."
For Each PTF in PT.Pivotfields
If Instr(Nevek,PTF.Name)>0 Then
With PTF
For Each PvI In .PivotItems
Select Case PvI.Name
Case "(blank)"
PvI.Visible = False
Case Else
PvI.Visible = True
End Select
Next
End With
Exit For
End If
Next

  Persze ne feledkezz meg a külső ciklusról se.

  Üdv.

• Fferi50 Topikgazda

  2017-08-16 22:29:26 #35987

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz Imy üzenetére #35985

  Szia!

  Ha beállítottad az automatikus frissítést, akkor megnyitáskor frissül az adat. Nyitott munkafüzetnél, ha a hivatkozott munkafüzet megváltozik, akkor a számolás vagy a frissítés meghívása szükséges.

  Üdv.

• Fferi50 Topikgazda

  2017-08-16 22:27:55 #35986

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz alfa20 üzenetére #35979

  Szia!

  Ilyen esetben a "háromdimenziós" változó megadásra van szükség, meg kell mondani a makróban, melyik modulban van a változó.
  A megoldás:
  Private Sub start()

ThisWorkbook.makroFileWB.Sheets(1).Range("A1") = "1000"

End Sub

  Igen, kicsit bizarrnak hat, hiszen a makroFileWB változó tartalma a ThisWorkbook objektum, viszont magát a változót a ThisWorkbook. modulban deklaráltad.
  Másrészt ne felejtsük el azt sem, hogy a ThisWorkbook objektum és az ActiveWorkbook objektum nem feltétlenül ugyanarra a munkafüzetre hivatkozik...bár alapból gondolhatnánk akár ezt is.
  A ThisWorkbook mindig a makrót elindító munkafüzet lesz, az ActiveWorkbook pedig, mint a neve is mutatja, az éppen aktív munkafüzet.
  Azt javaslom, hogy globál/publikus változókat mindig általános modulban deklarálj és a modulnévvel így könnyen tudsz rá hivatkozni: modulnév.változónév

  Javaslom, nézd át a változók élettartama és hatóköre részt a VBA helpben.

  Üdv.

• Imy veterán

  2017-08-16 15:48:09 #35985

  Új Válasz

  Ú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

  

  Imy

  veterán

  Ha egy másik excelre hivatkoznak a celláim, akkor azok frissítése mikor történik meg? Mert nálam időnként nem frissül be.

• lorcsi veterán

  2017-08-16 14:53:21 #35984

  Új Válasz

  Ú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

  

  lorcsi

  veterán

  válasz Apollo17hu üzenetére #35983

  köszi

• Apollo17hu őstag

  2017-08-16 14:50:15 #35983

  Új Válasz

  Ú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

  

  Apollo17hu

  őstag

  válasz lorcsi üzenetére #35982

  [link]

• lorcsi veterán

  2017-08-16 14:23:44 #35982

  Új Válasz

  Ú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

  

  lorcsi

  veterán

  szeretnék makro használatot tanulni

  hol érdemes kezdenem ?
  weboldal..könyv, videó?
  van e ajánlott?

• Ptech addikt

  2017-08-16 13:09:31 #35981

  Új Válasz

  Ú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

  

  Ptech

  addikt

  válasz Fferi50 üzenetére #35974

  Szia,

  Köszi szépen, az egyetlen baj, hogy nem minden pivotban 'Status' a PivotField neve, itt akadtam el igazából.

• kezdosql tag

  2017-08-16 12:54:53 #35980

  Új Válasz

  Ú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

  

  kezdosql

  tag

  Surgos segitseget kernek, hogyan tudom ellenorizni, mely cellak valtoztak egy excel fajlban, tobb munkalapon.
  Excel2000, 2003 es 2010 erintett.

  Most mar biztos, hogy kulonbozo verzioju excel-ek kozotti munkak soran idonkent adatvesztesek tortennek.
  eleinte arra tippeltem, hogy az ujabb verzioban tobb karaktert enged egy cellaba, ezert korabbi verziokban megnyitva ezek a cellak csonkolodnak, vagy nullazodnak.

  De tegnap este kiderult, hogy mas cellak tartalmai is nyomtalanul eltunnek, es neha a formazas is megvaltozik. A legfeltunobb az, amikor acellaba irt szoveg vagy keplet hirtelen tobb sorra tordelodik es az egyes cellak altal erintett sorok akar fel kepernyonyi magasak lesznek.
  Tegnap raadasul kiderult, hogy mar a mentesnel is felmerult a problema, 2010-ben bevitt adatok jelentos resze mar rogton a mentes utan eltunt.

  Most arra kenyszerultunk, hogy senki se irjon a megnyitott fajlba, hanem uj fajlkent mentse el az altala bevitt, vagy modositott adatokat, es ha vegzett, dokumentalja a korabbi es az uj fajl meretet es az adott munkalapokon a sorok szamat. Ez meretcsokkenes eseten gyors figyelmeztetest ad, de csak akkor, ha sok adat tunik el. Raadasul a fajlok tarolasa, verziok kovetese nagyon problemas.

  Hogyan lehet megoldani, hogy ha vegzett az illeto, akkor egy program osszehasonlitsa a ket excel fajlt es kapjon egy listat, hogy melyik munkalapon mely cellak valtoztak?
  Sorokat es cellakat soha nem torol senki, csak cellak modositasa, illetve uj sorok bevitele tortenik.

• alfa20 senior tag

  2017-08-16 10:56:37 #35979

  Új Válasz

  Ú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

  

  alfa20

  senior tag

  Sziasztok!

  Szükségem lenne egy kis segítségre globális változóval kapcsolatban,
  Open metódusba beletettem az alábbi kódot:
  Option Explicit
Public makroFileWB As Workbook

Private Sub Workbook_Open()

Set makroFileWB = ThisWorkbook

End Sub

  illetve fel szeretném használni később egy Modul1-ben, most csak ennyi próba képen, de nem akarja átadni a változót, azt szeretné ha deklarálnám előbb, de elvileg már létre hoztam megnyitáskor.

  Private Sub start()

makroFileWB.Sheets(1).Range("A1") = "1000"

End Sub

  Valaki tudna segíteni, hogy működjön?

  Köszi előre is!

• föccer nagyúr

  2017-08-15 15:20:52 #35978

  Új Válasz

  Ú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

  

  föccer

  nagyúr

  válasz botond2225 üzenetére #35977

  A formázandó cellák kijelölés képlettel kell neked. Ott van a lista alja felé.

  üdv, föccer

• botond2225 csendes tag

  2017-08-15 15:04:48 #35977

  Új Válasz

  Ú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

  

  botond2225

  csendes tag

  válasz föccer üzenetére #35976

  Nekem úgy kellene, hogy soronként vesse össze.
  Tehát 2 oszlop értékeit soronként nézze és az alapján színezzen.

• föccer nagyúr

  2017-08-15 14:24:16 #35976

  Új Válasz

  Ú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

  

  föccer

  nagyúr

  válasz botond2225 üzenetére #35975

  Feltételes formázás, cella értéke alapján. Pont erre van kitalálva.

  üdv, föccer

• botond2225 csendes tag

  2017-08-15 13:36:00 #35975

  Új Válasz

  Ú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

  

  botond2225

  csendes tag

  Sziasztok,

  2010-es magyar excel-ben azt szeretném megoldani, hogy 2 oszlopot hasonlítson össze, és ha az értéke nem ugyanaz, színezze be valamilyen színnel.
  A cella értékei <5 vagy <20 vagy #hiányzik.
  Lehet egyszerűbb lenne a kisebb jelet kivenni és utána vizsgálni?
  Segítségeteket előre is köszönöm.

• Fferi50 Topikgazda

  2017-08-15 11:26:52 #35974

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz Ptech üzenetére #35970

  Szia!

  Ciklussal végig kell menni a pivottáblákon, úgy ahogyan a pivotitemmel teszed.

  Dim PT As PivotTable
Dim PvI As PivotItem

For each PT in Worksheets("Summary").PivotTables
With PT.PivotFields("Status")
For Each PvI In .PivotItems
Select Case PvI.Name
Case "(blank)"
PvI.Visible = False
Case Else
PvI.Visible = True
End Select
Next
End With
Next

  Üdv.

• Delila_1 veterán

  2017-08-15 10:18:30 #35973

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz mdk01 üzenetére #35972

  Az összevont két táblázat Név oszlopát másold egy új oszlopba. Legyen ez most az E oszlop. Jelöld ki a tartományt, majd Adatok | Ismétlődések eltávolítása.

  Az F2 képlete: =SZUMHA(A:A;E2;B:B)

• mdk01 addikt

  2017-08-15 09:09:23 #35972

  Új Válasz

  Ú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

  

  mdk01

  addikt

  válasz mdk01 üzenetére #35971

  Igazából lehetnek egybe az első táblázatok, mert azokat úgy szúrnám be egy másik táblázatból, csak többször szerepelnek a tételek, és gyakorlatilag egy összefűzésről van szó.

  

  Köszönöm

• mdk01 addikt

  2017-08-15 08:51:39 #35971

  Új Válasz

  Ú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

  

  mdk01

  addikt

  Sziasztok!

  Excelbe van olyan képlet, vagy egyéb megoldás, amivel a következőt meg lehet csinálni?

  

  A lényeg, hogy van két táblázat azonos, és különböző tételekkel amiket összesít egy táblázatba figyelembe véve, hogy amelyik tételt már kiírta ott csak a darabszámot adja hozzá, de ha valamelyik táblázatban új tételt talál, akkor azt egy külön sorba kiírja és a hozzá tartozó darabszámot.
  Köszönöm

• Ptech addikt

  2017-08-14 14:39:54 #35970

  Új Válasz

  Ú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

  

  Ptech

  addikt

  Sziasztok,

  Az alábbi kód kiveszi egy pivotból a blank mezőt.
  Viszont több pivot van is van a lapon (illetve várható hogy több is kerül még bele), hogy irható át a kód úgy, hogy minden pivotból vegye ki a blank mezőket, ne csak a PivotTable1-ből?

  Dim PT As PivotTable
Dim PvI As PivotItem

Set PT = Worksheets("Summary").PivotTables("PivotTable1")
With PT.PivotFields("Status")
For Each PvI In .PivotItems
Select Case PvI.Name
Case "(blank)"
PvI.Visible = False
Case Else
PvI.Visible = True
End Select
Next
End With

• Delila_1 veterán

  2017-08-13 17:07:09 #35969

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Imu üzenetére #35968

  

• Imu csendes tag

  2017-08-13 14:42:40 #35968

  Új Válasz

  Ú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

  

  Imu

  csendes tag

  válasz Delila_1 üzenetére #35966

  Köszi!

  Közben addig próbálkoztam, míg sikerült megírni a kódot

  Sub keres()
Dim ertek As String
Dim sor As Integer
Dim sor2 As Integer
Dim i As Integer
Dim j As Integer

sor = Sheets("Munka1").Range("A100").End(xlUp).Row
sor2 = Sheets("Munka2").Range("A100").End(xlUp).Row

For j = 1 To sor


ertek = Sheets("Munka1").Cells(j, 1).Value


For i = 1 To sor2
If Sheets("Munka2").Cells(i, 1) = ertek Then
Sheets("Munka2").Rows(i).Delete
End If

Next i
Next j

ThisWorkbook.Sheets("Munka2").Select
ActiveSheet.Range("a1", ActiveSheet.Range("a1").End(xlDown).End(xlToRight)).Select
Selection.Cut
ThisWorkbook.Sheets("Munka1").Select
ActiveSheet.Cells(sor + 1, 1).Select
ActiveSheet.Paste




End Sub

• thomas50.000 csendes tag

  2017-08-13 14:41:05 #35967

  Új Válasz

  Ú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

  

  thomas50.000

  csendes tag

  Sziasztok!

  http://imgfrm.index.hu/imgfrm/9/9/0/9/THM_0014569909.png

  Amikor megnyitom a munkafüzetemet, akkor ez fogad. Nem igazán értem, hogy mi a problémája. A csatolás helye létezik, és jól is van beállítva.
  Ha rámegyek a csatolás szerkesztésére, akkor ott az állapotra "OK"-t ír.

  Minden egyes indításnál rá kell nyomjak a "tovább"-ra, és akkor frissíti a csatolásokat.

  Azt szeretném kérdezni, hogy ez valahogy megoldható lenne, hogy ne írja ki mindig, hanem magától frissítsen.

  http://imgfrm.index.hu/imgfrm/9/9/1/1/THM_0014569911.png

  Ez is be van pipálva.

  http://imgfrm.index.hu/imgfrm/9/9/1/2/THM_0014569912.png

  Ha itt a Ne legyen rákérdezés... -re megyek, akkor nem adja fel az ablakot, viszont nem is frissíti az adatokat. Szóval az nem jó megoldás nekem.

  Erre esetleg tudna nekem valaki segítséget, vagy ötletet adni?

  Előre is köszönöm!

• Delila_1 veterán

  2017-08-13 13:18:47 #35966

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Imu üzenetére #35964

  Rögzítsd makróban a műveletet, tegyél ki hozzá egy gombot, és már adhatod is Marikának, vagy a technológus Gézának, Janinak.

• föccer nagyúr

  2017-08-13 11:02:07 #35965

  Új Válasz

  Ú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

  

  föccer

  nagyúr

  válasz Imu üzenetére #35964

  Teljesen jó, nyomós érv. Én sem adom ki a kezeim közül a saját táblázataimat, csak a kiexportált PDF-eket, illetve a technológus kollégáknak mentegy egy külön adatfájlt, amibe külön érték beillesztést cisnálok nekik a releváns információkról.

  üdv, föccer

• Imu csendes tag

  2017-08-13 10:51:00 #35964

  Új Válasz

  Ú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

  

  Imu

  csendes tag

  válasz föccer üzenetére #35963

  Nem mert Marikának nem lesz ennyire triviális

• föccer nagyúr

  2017-08-12 22:20:04 #35963

  Új Válasz

  Ú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

  

  föccer

  nagyúr

  válasz Imu üzenetére #35961

  Az nem megfelelő, hogy egy másik munka lapon egymás alá másolod a két oszlopot, majd adatok ismétlődések eltávolítása, és a megfelelő munkalapra visszaszúrod az eredményt? Kb 30 másodperc.

  üdv, föccer

• Acustic csendes tag

  2017-08-12 22:17:00 #35962

  Új Válasz

  Ú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

  

  Acustic

  csendes tag

  Sziasztok!
  Ti már sok mindent láttatok, ezért fordulok hozzátok Én sehol nem találtam meg ...... A probléma a következő:
  Amikor egy három oszlopos táblázatban cserét akarok végrehajtani, akkor beütöm a keresett szöveget, és a csere szöveget. A dokumentum elejéről elindulok (oszlop) és a következőt megnyomva, megtalálja az első cellát. Rányomok a cserére, és át is változtatja. Innen már csak space-t vagy entert kell nyomnom, és ugrik a következőre. És a következőre. Egészen addig nem ad új oldalt, amíg le nem érek a monitor aljára. Amikor oda elérek, akkor ad egy új oldat. Csakhogy az a monitor közepén lesz. Vagyis ez nem új oldal, csak egy fél.
  Kérdés: Be lehetne azt állítani, hogy ne a monitor közepére, hanem a felső rész 1/5-ére ugorjon? És amikor új oldalt fog adni akkor ne a monitor legaljánál tegye meg, hanem a 4/5-énél?
  Köszönöm a segítségeteket ...hátha ti már találkoztatok ezzel .........
  Még talán az is jobb lenne, ha állandóan egy pozícióba tenné a cserélni kívánt cellát ........(ezáltal folyamatos lenne a lefele gördulés)
  A problémám onnan fakad, hogy a legalsó cellánál nem lehet látni, hogy mi fog következni, és amikor vált, akkor már nagyon késő, -továbbá, hogy a feléig ugrik csak fel az új lap adásánál, így a monitor fele teljesen felesleges .......
  Remélem érthetően írtam le .... Előre is köszi a segítséget ....
  Attila

• Imu csendes tag

  2017-08-12 21:00:41 #35961

  Új Válasz

  Ú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

  

  Imu

  csendes tag

  Sziasztok!

  Szükségem lenne egy makróra.
  Van két munkalapom Munka3, Munka4. Mindkét munkalapon hasonló felépítésű táblázat van: 12 oszlop kb 500 sor. A sorok termékek cikkszáma, neve, ára stb. Az szeretném, hogy Munka4-en szereplő de a Munka3-on nem szereplő sorokat átmásolja a Munka3-as táblázat alá. A sorokat cikkszámmal lehet azonosítani ami a Munka4-en az E oszlop, a Munka3-on az A oszlop hivatkozik az F oszlopra ( pl A1 cellában =F1 ).

  Előre is köszi

• kezdosql tag

  2017-08-12 14:21:39 #35960

  Új Válasz

  Ú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

  

  kezdosql

  tag

  válasz Aventador91 üzenetére #35949

  Ez ellentmondasos feltetel, hiszen ha 1 es 2 kozotti szam van barmelyik oszlopban,
  akkor hogyan donti el, hogy kiirjon valamit, vagy sem?

• Delila_1 veterán

  2017-08-11 12:59:23 #35959

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Certee üzenetére #35958

  Nincs mit, szívesen.

• Certee senior tag

  2017-08-11 11:12:14 #35958

  Új Válasz

  Ú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

  

  Certee

  senior tag

  válasz Delila_1 üzenetére #35957

  Igen, az volt. Köszi!

• Delila_1 veterán

  2017-08-09 14:20:37 #35957

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Certee üzenetére #35956

  Semmi vész, egynél több lapod van kijelölve.

• Certee senior tag

  2017-08-09 13:55:20 #35956

  Új Válasz

  Ú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

  

  Certee

  senior tag

  Van egy olyan excel fájl-om amit, ha megnyitok, akkor a fejlécben a fájl neve után kapcsos zárójelek közé oda van írva, hogy Csoport. Mit jelent ez? Ha elmentem más néven, akkor is mögötte marad. Eddig ez nem volt ott. Mit csinálhattam véletlenül?

• oke senior tag

  2017-08-09 11:33:27 #35955

  Új Válasz

  Ú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

  

  oke

  senior tag

  válasz Delila_1 üzenetére #35954

  Kipróbálom majd. Igazából nekem magában a kimutatásban nem jelenik meg a dátum mint adat, hanem a jelentés szűrésnél választok ki egy napot és így kihozza az aznapi adatokat. Ezért zavaró, ha a választásnál nem sorrendbe jönnek a napok.

• Delila_1 veterán

  2017-08-09 11:13:33 #35954

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz oke üzenetére #35953

  

  A D2 cella képletét látod a szerkesztőlécen, a formátum itt hh:nn. A kimutatásba a B1:D18 tartományt vettem be. Sorcímke dátum_1, érték az összeg. A kimutatás F oszlopában állva a jobb klikk előhoz egy gyorsmenüt, ebben állíthatod a cellaformátumot, és szintén itt rendezheted az oszlopot.

• oke senior tag

  2017-08-09 10:51:46 #35953

  Új Válasz

  Ú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

  

  oke

  senior tag

  válasz Delila_1 üzenetére #35952

  Kipróbáltam, nem jött össze így sem, sőt rosszabb . Az eredeti dátum, amiből a hónapot/napot kinyertem, abban óra perc is van, erre nem emlékeztem: 2017.01.01 19:06:23 (éééé.hh.nn ó:pp)
  Valamiért a kimutatásban a szűrésnél ezt a formátumot jeleníti meg, nem csak a hónap/napot.

  

  Illetve mivel egy napot több sorban jelenít meg, az óra:perc eltérés miatt..Nagyon sokáig gondolkozik már akkor, amikor rákattintok, hogy választani tudjak. Hibát is dobott ki, hogy max 65534 sort tud megjeleníteni itt. Ki is akadt az excel,..

• Delila_1 veterán

  2017-08-09 09:52:49 #35952

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz oke üzenetére #35951

  A képlet legyen =C2, a formátum "hh.nn". Ennek az eredménye dátum, amit rendezhetsz, míg a TNÉV-vel szöveges adatot hoztál létre.

• oke senior tag

  2017-08-09 09:20:57 #35951

  Új Válasz

  Ú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

  

  oke

  senior tag

  Sziasztok!

  Van egy excel táblám, melyből készítettem egy kimutatást. A táblázatba folyamatosan töltök adatokat, mely dátumot is tartalmaz. Egyszerre több napnyi adatot is feltöltök, a dátumok nem egymást követően vannak, hanem össze vissza. Az egyik oszlopba ezzel a képlettel a hónapot és a napot szedem ki:

  =TNÉV(SZÖVEG(C2;"hh.nn"))

  A kimutatás egyik jelentés szűrő eleme ez az oszlop lenne. Viszont az ilyen feltöltések után a dátumok nem egymás után következnek és nem is tudom sehogy sorba rendezni őket. Van erre valami megoldás?.

  Így néz ki most:
  

  Hiába törlöm ki a kimutatás jelentésszűrőből ezt az oszlopot és rakom vissza, nincs változás.
  Ha egy új kimutatást hozok létre, akkor sorban van, de én a meglévőt szeretném frissíteni.

  Excel 2007

• föccer nagyúr

  2017-08-07 22:30:14 #35950

  Új Válasz

  Ú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

  

  föccer

  nagyúr

  válasz Aventador91 üzenetére #35949

  HA(ÉS(A1>0;B1>0);"Pipa";HA(VAGY(A1<2;B1<2);"";"Egyéb eset?"))

  Nincs előttem táblázat, így csak fejből.

• Aventador91 őstag

  2017-08-07 22:20:56 #35949

  Új Válasz

  Ú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

  

  Aventador91

  őstag

  Hi! abban lehetnétek segítségemre, hogy hogyan tudom azt megcsinálni, hogy van egy táblázatom, 2 oszlop egymás mellett, tele számokkal, és azt szeretném megcsinálni valami fügvénnyel, hogy ha egy sorban mindkét oszlopban 1-nél nagyobb szám van akkor írja ki hogy pipa, ha valamelyik oszlopban 2-nél alatti szám van akkor ne írjon ki semmit.

• szabonagyur félisten

  2017-08-07 19:37:01 #35948

  Új Válasz

  Ú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

  

  szabonagyur

  félisten

  válasz Fferi50 üzenetére #35923

  Köszi, megoldódott.

  Minek kellett így eldugni..

• sajog159 aktív tag

  2017-08-07 11:51:02 #35947

  Új Válasz

  Ú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

  

  sajog159

  aktív tag

  válasz sajog159 üzenetére #35946

  Google válaszolt közben

• sajog159 aktív tag

  2017-08-07 11:36:09 #35946

  Új Válasz

  Ú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

  

  sajog159

  aktív tag

  Apróság, de nem tudom rájönni...

  Ha cellához hozzáfüzöm egy megjegyzést,
  1. valamikor mindig látható a megjegyzés és
  2. valamikor csak ha rámegyek kurzorral a cellára

  Hogy tudom "kikapcsolni" az 1. opciót?

  Előre is köszönöm!

• Fferi50 Topikgazda

  2017-08-06 23:06:58 #35945

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz bobsys üzenetére #35943

  Szia!

  Csinálsz belőle diagramot, x tengely a dátum. Értékek a listaár és az eladási ár - két adatsor. Mindkettőnél (külön-külön) jobb egérgomb - trendvonal hozzáadása.

  Üdv.

• lappy őstag

  2017-08-06 22:26:00 #35944

  Új Válasz

  Ú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

  

  lappy

  őstag

  válasz bobsys üzenetére #35943

  vmi ilyesmire gondolsz?

• bobsys veterán

  2017-08-06 22:05:26 #35943

  Új Válasz

  Ú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

  

  bobsys

  veterán

  Van harom oszlop
  A - datum (ev,honap,nap)
  B - listaar
  C - eladasi ar

  Ebbol lehet valamilyen keplettel / grafikonnal csinlani egy szep trendvonalat, hogy lassam az elmult 4 evben hogyan valtoztak az eladasi es listaarak?

• kezdosql tag

  2017-08-06 12:26:55 #35942

  Új Válasz

  Ú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

  

  kezdosql

  tag

  válasz tzimash üzenetére #35898

  Csak mert az ottani feladatok egy resze pont ilyen megoldasokra valo.

• Fferi50 Topikgazda

  2017-08-06 08:22:01 #35941

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz föccer üzenetére #35940

  Szia!
  "asszem holnap is jot fogok szorakozni"
  Úgy gondolom, ma lesz az a holnap....
  Javaslom, ne sajnáld az időd egy kis Microsoft MSDN böngészésre, illetve VBA helpre pl, Itt
  Egy csomó kérdésed szinte azonnal megválaszolható.

  Üdv.

• föccer nagyúr

  2017-08-06 00:12:45 #35940

  Új Válasz

  Ú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

  

  föccer

  nagyúr

  válasz Fferi50 üzenetére #35939

  Hol hangzik, remelem boldogulok vele holnap.

  Az auto szuro beallitasait milyen objektumon erem el? Ezt suma ertekadassal tudom modositani?

  Illetve vektor tipust ismer a wba? Tehat definialni egy vekror adattombot valamilyen tipusbol? Monsjuk array of integer vagy valami ilyesmi.

  Szepen lassan jonnek elo a regi emlekek... asszem holnap is jot fogok szorakozni...

• Fferi50 Topikgazda

  2017-08-05 23:57:46 #35939

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz föccer üzenetére #35938

  Szia!

  Valami ilyesmit fogsz látni a rögzítés után:

  Sub Makró2()
'
' Makró2 Makró
'

'
ActiveChart.ChartArea.Select
ActiveChart.FullSeriesCollection(3).Select
ActiveChart.FullSeriesCollection(3).Trendlines.Add
ActiveChart.FullSeriesCollection(3).Trendlines(1).Select
Selection.DisplayEquation = True
End Sub

  Ebből látod, hogy itt pl. a 3. adatsorhoz csináltam trendvonalat.

  Üdv.

• föccer nagyúr

  2017-08-05 23:12:26 #35938

  Új Válasz

  Ú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

  

  föccer

  nagyúr

  válasz Fferi50 üzenetére #35937

  A makrórögzítésekkel eleddig mindig csak a bajom volt, de ha van rá reális esély, hogy valahogy kiszedjem belőle az infót, akkor megéri szenvednem vele.

  Egyébként este hazafelé kigondoltam egy viszonylag gyors algoritmust, ami járható út. A nagy adattáblából leszűröm a szükséges adatpárokat, majd gombnyomásra kimásolom őket egy külön lapra, csoportosítva egymás mellé, gyorsan egymás után, végig szaladok azon a 30-40 paraméteren pár perc alatt. A kérdéses lapon pedig választéklistából, indirekttel 1 kattintással tudom frissíteni a teljes diagrammot, leírom a 2 paramétert és már vissza is adja nekem a szükséges számokat. Ha másképpen nem megy, ez lesz a megoldás.

  Ha szövegesen megkapom az egyenletet az jó, mert azt már szét tudom szedni függvényekkel és át tudom konvertálni számokká. Király lenne.

• Fferi50 Topikgazda

  2017-08-05 23:02:54 #35937

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz föccer üzenetére #35936

  Szia!

  Szerintem ezt az adott adatsorhoz tartozó trendvonal címkéjének leolvasása adja meg, szövegként. Pl.
  trendcimke=charts(1).seriescollection(1).trendlines(1).datalabel.text
  tartalmazza mind az egyenletet, mind a szórásnégyzet értékét.
  Ezt már meg tudod manipulálni a kedved szerint.
  (Javaslat: makrórögzítéssel tedd fel a trendvonalat és a függvény ill. szórásnégyzet megjelenítést, így tudni fogod, melyik adatsorhoz tartozik a trendvonal, ha nem egy adatsorod van.)

  Üdv.

• föccer nagyúr

  2017-08-05 18:43:46 #35936

  Új Válasz

  Ú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

  

  föccer

  nagyúr

  Jó estét!

  Akkor most egy nagy falat. Aki ebben érdemben tud nekem segíteni, annak jövök egy pizza/sör/pálinka kombóval.

  Makróval kellene meghatároznom egy adathalmazból kiértékelhető exponenciális trend görbe fuggvényét. Pont azt, amit a diagrammokra le lehet kérni 1 gombnyomással.

  Természetesen minden kék adatpontnak megvannak a koordinátái, és amire rettenetesen szökségem lenne az a trend görbének a matematikai függvénye. Ha ez megvan, akkor megváltom a világot

  

  A lányeg, hogy elég nagy, dinamikus adatmennyiségen kellene elvégezni egy olyan elemzést, amihez az átlag görbétől való átlagos eltérést (szórást) számítok. Különböző paraméterek mellett leszűrök egy listából néhány adatpontot, amire szórást kellene számítani. (egyes adatpontok száma pártucattól 100-150 darabig terjed.

  Eddig mindig úgy csináltam, hogy a leszürt adatokat betettem egy külön táblázatba és manuálisan beírtam a függvény paramétereit, amiből már az excel számolni tudott. Igen ám, de ha automatikusan akarom elvégezni az elemzést, akkor ez a "lenézem és beírom" nem működik.

  Köszi szépen.

  üdv, föccer

• föccer nagyúr

  2017-08-04 23:43:22 #35935

  Új Válasz

  Ú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

  

  föccer

  nagyúr

  válasz Fferi50 üzenetére #35934

  Valamikor megdicsőült gyermekkoromban foglalkoztam objektum orientált programozással, szóval nem teljesen idegen számomra ennek a lelki világa. Leginkább a programnyelv ismerete (legyen az bármennyire is egyszerű), illetve az objektumok és funkciók ismerete hiányzik.

  Köszi, ezzel a szamárvezetővel már szerintem el fogok holnap boldogulni, sokat segítettél, köszönöm szépen.

  üdv, föccer

• Fferi50 Topikgazda

  2017-08-04 23:33:13 #35934

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz föccer üzenetére #35933

  Szia!

  Előljáróban: az összefűz függvény helyett a & operátor használatát javaslom, ami ugyanazt jelenti és az Excel celláiban is így működik (pl. =A1 & A2 ), rövidebb és elegánsabb is.

  Egy cellába a Formula tulajdonsággal adhatsz meg képletet, ebben az eseten mindig ANGOL nyelven kell megadni a függvény nevét és vesszővel elválasztani a paramétereket (pl. Range("A1").Formula="=SUM(A2:A4)" ), szövegként. Itt problémát jelenthet az esetleg szükséges idézőjelek bevitele, amit vagy az idézőjel duplikálásával, vagy a CHR(34) függvénnyel adhatsz meg. Ügyelni kell arra, hogy a szövegek rendesen legyenek megadva, pl. Range("A4").Formula="=SUBSTITUTE(A2,""mb"","""")".
  Ezeket a képleteket megnézheted, ha a VBA nézet Immediate ablakába beírod pl. ?Range('A1").Formula

  Lehetséges magyar nyelven is a függvények megadása, a FormulaLocal tulajdonsággal. Ebben az esetben magyar függvényneveket használhatsz, de a munkafüzet nem lesz hordozható, más területi beállításnál nem fog működni, mert nem ismeri fel a képletet.

  Végül, de nem utolsósorban: Egy csomó munkalap függvény használható a VBA-ban is, ezeket a Worksheetfuntion "gyűjtemény" tartalmazza. Ami itt van, az működik Application előtaggal is (Worksheetfunction nélkül!), akkor más a hibakezelési lehetőség.

  Ha a cellába nem a képletet szeretnéd beírni, hanem magát a számítás eredményét, akkor a Cella Value tulajdonságát kell használnod. Pl. Range("A1").Value=Application.Sum(Range("A2:A4"). Ebben az esetben tehát más módon kell megadnod a számításhoz a képletet! Viszont ilyenkor az adott cella is szerepelhet a számításban, tehát lehetne A1:A4 összegét beíratni az A1 cellába.
  Kísérletezéssel sokat fogsz előrejutni.
  Ennyit így éjfél előttre. Bizonyára maradtak még kérdéseid, azokat oszd meg velünk újra.

  Üdv.

• föccer nagyúr

  2017-08-04 23:11:58 #35933

  Új Válasz

  Ú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

  

  föccer

  nagyúr

  Jó estét!

  Mára egy utolsó kérdés, így este 11 körül.

  Hogyan tudok makróba "beilleszteni" egy már általam jól ismert függvényt. Mondjuk egy összefűz, vagy darabhatöbb függvényt?

  Például ha létrehozok egy új munkalapot, és ennek az új munkalapnak az egyik cellájába szeretnék egy olyan összeget írni, amit a fenti képletek valamelyikével, vagy bármilyen másik függvénnyel meg tudnék csinálni?

  Függvénykezelésben viszonylag jó vagyok, így sokkal gyorsabb (és kényelmesebb) lenne ha a makró kódba be bírnám rakni, hogy egy cellába írja bele az adott függvény által kiszámított eredményt. Nyilván ez a szám, csak mint érték jelenne meg, nem működne dinamikusan, de ez nem baj, lehet csak gombnyomásra futó dolog is.

  Köszi szépen.

  üdv, föccer

• Delila_1 veterán

  2017-08-04 18:08:39 #35932

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz föccer üzenetére #35930

  A Téma összefoglaló alján találsz 2 linket a tanuláshoz.

• Delila_1 veterán

  2017-08-04 17:54:29 #35931

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz föccer üzenetére #35930

  A létrehozás után átmozgatod, pl. a 3. lap után.

  Sheets(Range("C2")).Move Before:=Sheets(3)

  Makrórögzítéssel sok dolgot fel lehet fedezni.

• föccer nagyúr

  2017-08-04 17:48:25 #35930

  Új Válasz

  Ú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

  

  föccer

  nagyúr

  válasz Delila_1 üzenetére #35929

  Jó lesz ez köszi!

  A munkalapok listájában lévő helyet mivel lehet beállítani?

  (fellelhetek valahol egy normális objektum listát, tulajdonságokkal, eljárásokkal, paraméter listával? Egyszerűbb lenne azt böngésznem, mint minden apróságért kérdezzek. )

  üdv, föccer

• Delila_1 veterán

  2017-08-04 17:39:59 #35929

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz föccer üzenetére #35928

  Dim a

On Error Resume Next
Set a = Sheets(Range("C2"))
If Err.Number <> 0 Then
Sheets.Add.Name = Range("C2")
On Error GoTo 0
End If

Columns("A:D").ColumnWidth = 20

  Az alsó sor az A:D oszlopok szélességét állítja be, és teszi ezt az újonnan létrehozott lapon, mert hivatalból az új lap az aktív. Ha másik lapon akarod a szélességet beállítani, akkor ezt jelezni kell.

  Sheets(1).Columns("A:D").ColumnWidth = 20

• föccer nagyúr

  2017-08-04 17:23:56 #35928

  Új Válasz

  Ú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

  

  föccer

  nagyúr

  válasz föccer üzenetére #35922

  No, csak kellene bele tenni hiba javítást, mert úgy egyszerűbb lesz az életem.

  Le kellene elleőrízni, hogy a C2-ben megadott nevű munkafüzet létezik-e, és ha nem akkor létrehozza azt, és bemásolja a megfelelő cellákat.

  Ugyan itt szökség lenne arra is, hogy az oszlop szélességeket beállítsam. Erre melyik bojektum, melyik paraméterét kell módosítanom?

  (fene egye meg, hogy nem ismerem még az objektum listáját sem )

  Köszi .

  üdv, föccer

• Fferi50 Topikgazda

  2017-08-04 16:02:37 #35927

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz szabonagyur üzenetére #35916

  Kiegészítés:
  MIcrosoft Office Professional Plus 2016

  Üdv.

• föccer nagyúr

  2017-08-04 16:00:46 #35926

  Új Válasz

  Ú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

  

  föccer

  nagyúr

  válasz Delila_1 üzenetére #35925

  Az adatfeltöltést többen végzik, muszáj volt listából választhatónak megadnom, mert különben belehülyültem volna a hibajavításba. ;p Ennyike.

• Delila_1 veterán

  2017-08-04 15:55:41 #35925

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz föccer üzenetére #35922

  Helyes, védted hülyeség ellen.

• Fferi50 Topikgazda

  2017-08-04 15:55:39 #35924

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz Delila_1 üzenetére #35921

  Szia!

  Persze, hiszen a Range alapértelmezett tulajdonsága a Value.
  De, próbáld csak ki mondjuk egy csak dátumot tartalmazó, vagy csak számot tartalmazó lapnévvel, dátum vagy számformátumú cellával. Meg fogsz lepődni Value esetén... (legalábbis akinek segítettem, így járt). Akkor derült ki, hogy dátumérték a munkalap neve....
  Jó, nem feltétlenül "szabványos", hogy mondjuk egy munkalap neve egy pár lapos füzetben 10 legyen, de pl. ebben az esetben a Value már hibát okoz..., mivel nincs 10. munkalap.

  Üdv.

• Fferi50 Topikgazda

  2017-08-04 15:53:20 #35923

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz szabonagyur üzenetére #35916

  Szia!

  Nekem nem O365 van, hanem normál asztali.
  A Choose command from lenyílót húzd le, ott lennie kell All vagy All Command opciónak. Ezen belül meg kell találnod a közössé tételt is szerintem. Ezt küldheted át a Ribbon egyéni (újonnan hozzáadott) csoportjába.

  Üdv.

• föccer nagyúr

  2017-08-04 15:52:49 #35922

  Új Válasz

  Ú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

  

  föccer

  nagyúr

  válasz Delila_1 üzenetére #35919

  Listából választhatóak az elemek, illetve makróval töltöm ki a C2-t, így elvileg nem lehet hiba.

  Ez lett a végleges makró, kicsit igazítottam a tartományokon, meg amin kellett. Így tökéletesen működik, köszi szépen.

  Sub Masolas()
Dim sor As Long
If Sheets(Range("C2").Value).Range("B3") = "" Then
sor = 3
Else
sor = Sheets(Range("C2").Value).Range("B" & Rows.Count).End(xlUp).Row + 2
End If
Sheets("Mintavételek").Range("A2:AD5").Copy
Sheets(Range("C2").Value).Range("A" & sor).PasteSpecial xlPasteFormats
Sheets(Range("C2").Value).Range("A" & sor).PasteSpecial xlPasteValues
End Sub

  üdv, föccer

• Delila_1 veterán

  2017-08-04 15:49:08 #35921

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Fferi50 üzenetére #35920

  Tovább megyek, elég a Sheets(Range("C2")) is.

• Fferi50 Topikgazda

  2017-08-04 15:46:00 #35920

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz Delila_1 üzenetére #35917

  Szia!

  Másik fórumon szerzett friss tapasztalat szerint célszerűbb a Value helyett a Text tulajdonságot használni:
  Sheets(Range("C2").Text)
  Ebben az esetben ugyanis a számokkal elnevezett munkalapok is megtalálhatók, mivel név esetén szöveget vár a kis aranyos, szám esetén (value) pedig indexként értelmezi az odatett számot.

  Üdv.

• Delila_1 veterán

  2017-08-04 15:10:32 #35919

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz föccer üzenetére #35918

  Vigyázat! Nincs hibakezelés! Ha nem létező lap nevét írod a C2-be, hibaüzenettel megáll a makró.

• föccer nagyúr

  2017-08-04 15:08:05 #35918

  Új Válasz

  Ú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

  

  föccer

  nagyúr

  válasz Delila_1 üzenetére #35917

  Köci, rápróbálok.

• Delila_1 veterán

  2017-08-04 15:01:28 #35917

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz föccer üzenetére #35915

  A
  Sheets(2).Range("A" & sor).PasteSpecial xlPasteAll

  sorban a Sheets(2) helyett legyen

  Sheets(Range("C2").Value)

• szabonagyur félisten

  2017-08-04 14:57:02 #35916

  Új Válasz

  Ú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

  

  szabonagyur

  félisten

  válasz Fferi50 üzenetére #35904

  Legújabbat használod?

  Itt akinek nem frissült még az O365 annak is benne van, de ez frissült és most ilyen lett.
  

  

  Ribbonban sincs az opció.
  

• föccer nagyúr

  2017-08-04 14:55:50 #35915

  Új Válasz

  Ú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

  

  föccer

  nagyúr

  válasz Delila_1 üzenetére #35886

  Szuper lesz. Annyi kigészítést szeretnék hozzá kérni, hogy hogyan kell módosítani, hogy ha a cél munkafüzet megnevezése a "C2" cellában meadott szöveg lenne?

  Tehát a C2 cellába bemásolok egy "MOS" szöveget, akkor keresse meg a "MOS" nevű munkalapot és arra végzi el a beillszetés.

  Köszi szépen.

  üdv, föccer

• Delila_1 veterán

  2017-08-04 14:48:45 #35914

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Cece04 üzenetére #35913

  Nincs mit, szívesen.

• Cece04 tag

  2017-08-04 14:47:18 #35913

  Új Válasz

  Ú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

  

  Cece04

  tag

  válasz Delila_1 üzenetére #35912

  De jó, ezt nem tudtam, köszi!

• Delila_1 veterán

  2017-08-04 13:18:18 #35912

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Cece04 üzenetére #35908

  Egyszerűbben is megoldhatod. Az [B]=A1=B1[/B] képlet IGAZ eredményt ad egyezés esetén, másképp HAMIS a képlet eredménye.

• Delila_1 veterán

  2017-08-04 13:16:42 #35911

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Certee üzenetére #35910

  Ezt csak makróval lehet megoldani.

• Certee senior tag

  2017-08-04 13:10:35 #35910

  Új Válasz

  Ú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

  

  Certee

  senior tag

  válasz Delila_1 üzenetére #35903

  Igen, azt tudom, de én azt szeretném, hogy autómatikusan tudja, hogy új lapra kell nyomtatni, mert a szűrőkkel folyamatosan változtatom a sorok számát és minden alkalommal át kell húzgálni a lapokat, ha helyesen akarom kinyomtatni. Ezért lenne jó valami olyan megoldás, ha ő magától tudná, hogy ott egy laptörés van.

• Cece04 tag

  2017-08-04 11:45:05 #35909

  Új Válasz

  Ú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

  

  Cece04

  tag

  válasz Cece04 üzenetére #35908

  Közben rájöttem, hogy IF függvénnyel meg tudom oldani.
  Sry a dupláért, már nem tudom szerkeszteni az előzőt.

• Cece04 tag

  2017-08-04 11:38:16 #35908

  Új Válasz

  Ú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

  

  Cece04

  tag

  Sziasztok,

  segítsetek kérlek.

  Van egy adathalmazom, az A oszlopot össze kellene hasonlítsam a B oszloppal az adott sorban, hogy megegyezik e. A kérdés tehát, hogy A1 megegyezik e B1-el éstovább.

  Hogyha szám lenne, akkor egyszerűen csak kivonnám az A oszlopot a B-ből és ahol nem 0 az eltér,
  de ez sajnos szöveg is szám is stb..

  Köszönöm

• Apollo17hu őstag

  2017-08-04 11:35:12 #35907

  Új Válasz

  Ú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

  

  Apollo17hu

  őstag

  válasz Fferi50 üzenetére #35906

  Szia!

  A szövegből oszlopoknál a mező típusának beállítása jó ötlet volt. Hagyhattam "Általános" típusban, mert van egy külön opció arra, hogy milyen karakter jelölje az ezres csoportosítást és a tizedeshelyeket. Ezt kellett vesszőről pontra módosítani. Így működik, köszönöm!

• Fferi50 Topikgazda

  2017-08-04 10:26:20 #35906

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz Apollo17hu üzenetére #35905

  Szia!

  Pedig ez alapvetően a területi beállításoktól (és itt még a Windows is játszik!) függ. Próbáld meg úgy megnyitni, hogy egy oszlopba kerüljön egy sor. Ezután az Adatok - szövegből oszlopok menüpontban már meg tudod adni, hogy ne számként, hanem szövegként kezelje azt a mezőt is. Majd kicseréled benne tizedesvesszőt pontra.

  Vagy: VBA nézetben (makróval) az OpenText metódust használod, ott megadhatod, hogy az egyes mezők milyen típusuak legyenek (FieldInfo paraméter).

  Üdv.

• Apollo17hu őstag

  2017-08-04 09:52:56 #35905

  Új Válasz

  Ú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

  

  Apollo17hu

  őstag

  Sziasztok!

  Van egy pontosvesszővel szeparált .csv inputom, amit 2013-as Excellel társítok.
  Társítást követően azokat a mezőket, amiket az Excel számként ismer fel, önkényesen törli belőlük az inputban lévő tizedesvesszőt, az így kapott számokba pedig ezres elválasztóként vesszőket helyez el.

  Például -42710467,812692 van a .csv-ben, ami az Excelben már -42,710,467,812,692 -ként jelenik meg. Vagyis a mínusz 42 millióból mínusz 42 billió lesz.

  Milyen lehetőségem van, hogy a szám típusú értékek ne módosuljanak a társítást követően? (Területi és Excel-beállításaimhoz csak legvégső esetben nyúlnék.)
  Előre is köszönöm!

• Fferi50 Topikgazda

  2017-08-04 09:46:26 #35904

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz szabonagyur üzenetére #35901

  Szia!

  Tudom, nem vigasztal, de a magyar 2016-ban nálam benne van.
  A Beállítások - menüszalag testreszabása pontban bekapcsolhatod szerintem. Vagy egyéni menüpontként felveheted.

  Üdv.

• Delila_1 veterán

  2017-08-04 09:14:38 #35903

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Certee üzenetére #35902

  Oldaltöréses nézetben a szaggatott kék vonalat (az oldaltörés helyét) el tudod mozdítani húzással.

• Certee senior tag

  2017-08-04 09:05:52 #35902

  Új Válasz

  Ú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

  

  Certee

  senior tag

  Meg lehet adni egy egy sornak, hogy a nyomtatásnál attól a sortól új lapra nyomtasson?
  Azért lenne ez fontos, mert ha egy képet teszek be és a sorok úgy jönnek össze, hogy fél lap marad a kép előtt akkor a képet kettévágja és két lapra nyomtatja.

• szabonagyur félisten

  2017-08-04 08:18:27 #35901

  Új Válasz

  Ú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

  

  szabonagyur

  félisten

  Sziasztok

  Excel 2013-ról álltam át 2016-ra.

  Azonban a klasszikus Review/Share WB funkció már nem elérhető benne, google sem ad hasznosat.

  Hálózati meghajtón vannak a fájlok, eddig két kattintásra megosztottam, most ezt nem tudja.

  OneDrive és Sharepoint nem megoldás.

  Tipp?
  

  Ezt keresem:
  

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