-
IT café
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
morgusz
csendes tag
Sziasztok!
Három problémám van! Kérem segítsetek!
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.
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.
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.
(Eddig a teljes oszlopot másolta, de problémáim vannak emiatt a CSV -vé alakításkor) -
morgusz
csendes tag
Sziasztok!
Segítsetek!
(Kaptam korábban útbaigazítást, de képzetlenségem miatt nem sikerült megcsinálni.)1.A másként mentett fájl nevében a "napi" szó helyére kellene berakni az aktuális dátumot (hh.nn.).
"Workbooks.Open Filename:="D:\előkészítés+\AVO\Avo napi PM.xls"
ChDir "\\imrst\IMR_ST\IMRElorejelzesFiles"
ActiveWorkbook.SaveAs Filename:= _
"\\imrst\IMR_ST\IMRElorejelzesFiles\Avo napi. PM.xls", FileFormat:= _ <-------
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False"2. Másolásra nem a teljes oszlopokat kellene kijelölnöm, hanem csak az adatokat tartalmazó területet
Sheets("Eredmény CH").Select
Columns("A:H").Select <-------------------------
Selection.Copy
ChDir "D:\előkészítés+"
Workbooks.Open Filename:="D:\előkészítés+\Avo\Avo napi CH.xls"
Sheets("Munka1").Select
Range("A1").Select
ActiveSheet.PasteSegítsetek abban, hogy a fenti részeket hogy kell átírnom!
Köszi!
[ Szerkesztve ]
-
morgusz
csendes tag
válasz Delila_1 #19695 üzenetére
Helló!
Köszi, majd próbálkozom!
Még egy probléma!
Mitől lehet az, hogy ha egy XLS fájl-t elmentek CSV.-ként, (pontosvesszővel tagolt) akkor az adatot tartalmazó terület alatti üres cellák helyén, -jegyzettömb társításnál- több ezer sor pontosvessző látszik, és a CSV. fájlt használó program hibaüzenetet ad, amíg ki nem törlöm a pontosvesszőket.
Hogy kerülnek oda -az ezek szerint csak látszólag- üres cellák? (Az XLS.-be másolással kerültek be az adatok!?) -
morgusz
csendes tag
Sziasztok'!
Az alábbi makrót rögzítettem kézzel, és a CSV fájl-t pontosvesszővel tagoltként mentettem.
A makró futtatásakor viszont a tagolás csak vessző.
Mit kellene változtatni, hogy ; -vel tagolt legyen az eredmény?
.....................
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="G:\előkészítés+\dátum-csv.csv", FileFormat _
:=xlCSV, CreateBackup:=False
.......................[ Szerkesztve ]
-
morgusz
csendes tag
Helló!
Naponta 8-10 táblázat érkezik hozzánk egyedi azonosítószámú cikkekkel. Nap végén a táblákat egymás alá másolva (kb.: 2000 sor) kiderül, hogy egyes sorok többször is szerepelnek, mert a táblázatokban valami hiba miatt ismételten beérkeztek.
Ki kellene törölnöm a duplán vagy triplán szereplő sorokat, hogy annyi sor legyen, ahány különböző azonosító.Előre is köszi a segítséget!
-
morgusz
csendes tag
Sziasztok!
Régóta nem jövök rá, hogy miért van az, hogy ha egy xls. fájlt csv.-ként (pontosvesszővel tagolt) mentek kézzel, akkor az (jegyzettőmbbel megnyitva) " ;"-vel tagolt lesz, ha makróval csinálom úgy csak ","-vel tagolt. Így viszont egy másik program nem eszi.
Min csúszik el dolog? Kérem segítsetek, mert egyre több a kézimunka!Köszi!
-
morgusz
csendes tag
Sziasztok!
Egy fájlban,több munkalapról, naponta változó számú sort kellene egy összesítő lapra, egymás alá másolni, valami makróval. Makró rögzítéssel csinálnám, de a változó sorszám miatt kellene még valami, hogy ne kelljen akkora területek másolását beállítani, amibe biztosan be fognak férni a várható változó nagyságú másolandók. Aztán még törölni is kell az üreseket.
Valahol láttam már ilyet de most nem találom.
Tudnátok segíteni?Előre is köszi!
-
morgusz
csendes tag
Sziasztok!
Egy táblában van több oszloppár 60 sorral, amelyeknél azt kellene elérnem, hogy ha a bal oldali oszlop valamelyik cellájába beírok valamit, a mellette levő cella, a módosítás időpontját (éééé.hh.nn.óó.pp) írja ki és mentse el.
Hasonló problémát találtam itt, de abból nem tudtam továbblépni mert pancser vagyok az excelhez.Valami szájbarágós megoldást szeretnék!
Köszi![ Szerkesztve ]
-
morgusz
csendes tag
válasz Delila_1 #27324 üzenetére
Köszönöm szépen a segítséget!!!!
Sajnos pontatlanul írtam le, hogy mit szeretnék, még annyi a bajom, hogy a táblában csak néhány oszloppárnál működjön, nem az egész táblában. Csak bizonyos (I,M,Q) oszlopokban levő cellák módosításakor írja be, vagy írja át a szomszéd cellát. (Ugyanis ha olyan cellát módosítok ami mellé nem kellene időpont hanem más adat van, azt is átírja, és csak letiltott makrókkal tudok hozzányúlni).
Így is megoldható? -
morgusz
csendes tag
Sziasztok!
Egy tábla első oszlopában levő cellákba, a sorokban szereplő egyes cellák tartalmát, és közéjük egyéb szövegeket fűztem össze, ami egy e-mail szövege lenne.
Meg lehet-e oldani, hogy egy ilyen cella tartalmát, alkalmanként (ha a sorban valami változás történt az összefűzendő adatokban) automatikusan elküldjem a főnökömnek egy kattintással? -
morgusz
csendes tag
Sziasztok!
Egy olyan makrós megoldást szeretnék, ami a munka1 lap A2, B2 és C2 celláiba előre bemásolt függvényeket addig másolja tovább lefelé az oszlopokban, ahány sorban adat van a munka2 munkalapon, amire a függvények hivatkoznak.
Ugyanígy az E,F,G oszlopban, a munka3 munkalapra vonatkozóan, és így tovább. Még további 9 munkalapról kell adatokat kinyerni.Most fixen 5000 sorig vannak a függvények, (30 MB fölött van a fájl mérete,) de csak nagyon ritkán van szükség ennyire. Van olyan munkalap amelyiken csak 300 sor van. Szóval eddig lassan töltődött be a fájl de makrós megoldással talán kisebb lenne a mérete. (Habár azt nem tudom hogy a makró mennyivel növeli.)
Előre is köszi!
-
-
morgusz
csendes tag
Sziasztok!
Egy naponta készített táblázatból kellene adatokat küldenem címzetteknek.
A teljes táblázatból csak kijelölt cellatartományt, illetve esetenként nem összefüggő sorokat (mindig azonos oszlopok adai) kellene küldeni 1-1 emailben. (Egy email max. 15 sor adat)
Jó lenne olyan makró, amivel a kijelölt tartományt, tartományokat vagy sorokat elküldhetem az email szövegeként, (némi magyarázattal) vagy mellékletként.
Van már olyan makróm ami mindig azonos (összesítő) tartományt küld, (a napi.xls fájlba bemásolva) de most csak kézzel kijelölt részeket küldenék.Ez van most, de nem tudom hogy kellene átalakítani:
Dim Outlookprogi As Object
Dim Email As Object
Set Outlookprogi = CreateObject("Outlook.Application")
Set Email = Outlookprogi.CreateItem(0)On Error Resume Next
With Email
.to = "....."
.CC = "...."
.BCC = "....."
.Subject = "......."
.Body = ActiveCell.Offset(0, 12).Value]
.Attachments.Add "D:\napi.xls"
.Display
End With
Set Email = Nothing
Set Outlookprogi = NothingElőre is köszi!
-
morgusz
csendes tag
Sziasztok!
Most az alábbi makróval küldök emailt Excel táblázatból, egyenként kézzel indítva, válogatva a sorok közül! ("L" oszlop aktuális celláján állva indul a makró)
Raktam be függvényeket az "M és "S" oszlopokba amik segítenek a válogatásban, de ezek segítségével már szerintem automatikusan is lehetne küldeni.
Segítséget szeretnék kérni a makró módosításához úgy, hogy ha adott sor "S" oszlopában a "küldhető" szöveg és az "M" oszlopban "1" szerepel, akkor készítse el küldésre az emailt.
Addig kellene vizsgálni a táblát amíg "I" oszlop adatot tartalmaz, vagy a 100. sorig (100 a vége de addig még sosem volt kitöltve )Előre is köszi!
Dim Outlookprogi As Object
Dim Email As Object
Set Outlookprogi = CreateObject("Outlook.Application")
Set Email = Outlookprogi.CreateItem(0)On Error Resume Next
With Email
.to = "F"
.CC = "P"
.Subject = ActiveCell.Offset(0, 11).Value
.Body = ActiveCell.Offset(0, -11).Value
.Display
End With
Set Email = Nothing
Set Outlookprogi = NothingEnd Sub
-
morgusz
csendes tag
válasz Fferi50 #32794 üzenetére
Szia!
Köszi a makrót, de lehet, hogy rosszul írtam le, hogy mit akarok, mert csak a feltételeknek megfelelő legnagyobb sorszámú sor email-jét csinálta meg.
Annyi email kellene, ahány sorban igaz, hogy "S"oszlopban "küldhető", "M" oszlopban "1 " szerepel.
(Illetve nem tudom hova került a többi, ha legyártotta.Vagy csak akkor csinálja a többit, ha elküldtem azt az egyet?)
Még annyit szeretnék kérdezni, hogy ahhoz mit kell megváltoztatni, hogy rögtön küldje ahogy elkészült, mert úgyis egy másik fiókba kerül először, ahonnan a cég nevében továbbküldöm. -
morgusz
csendes tag
Sziasztok!
Segítséget szeretnék kérni egy makróhoz, ami azt csinálja, hogy (naponta változó mennyiségű) kb. 100 db Excel fájlból, a "munka1" lapok, utolsó, adatokat tartalmazó sorának ("A" oszlopot kell figyelni) első 10 celláját bemásolja a cél fájl (KKSS2018.xls) "munka1" lapjára az"A2" cellától soronként egymás alá.
A forrás fájlok neve" xyz (1).xls"-től indul "xyz (n).xls"-ig.Sajnos nem találtam itt hasonlót, de lehet, hogy rosszul kerestem!
Előre is köszönöm!
-
morgusz
csendes tag
Bocsi!
Az előbb azt nem írtam le, hogy már ott elakadtam, hogy nem tudom, hogyan kellene kijelölnöm másolásra a forrás tábla utolsó sorát.
Találtam egy ilyen mintát, de nem igazán értem, hogy mire használható, és hogy működtethető?
"Utolsó használt sor
példa
Sub FindLastRow()
Dim LastRow As LongIf WorksheetFunction.CountA(Cells) > 0 Then
‘Search for any entry, by searching backwards by Rows.
LastRow = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
MsgBox LastRow
End If
End Sub" -
morgusz
csendes tag
Sziasztok!
Segítsetek!
Hogy lehet dátumot tartalmazó cellát beállítani, vagy egy újat létrehozni (szövegként) körlevél alapjául szolgáló táblázatban úgy, hogy az ÉÉÉÉ.HH.NN formátumban jelenjen meg Word körlevél készítésénél.
Most úgy jelenik meg, hogy: N/H/ÉÉÉÉKösz!
-
morgusz
csendes tag
Sziasztok!
Szeretném a segítségeteket kérni!
Adott egy 9 oszlopos táblázat, változóan kb. 80-150 sor, amiben az "A" oszlopban, növekvő sorrendben ( betűkből és számokból álló) 10 különböző cikkszám ismétlődik. Ebből kellene leszűrni, az utolsóként előforduló cikkszámok sorait, ahol az utolsó cella ("i"oszlop) nem üres, és nem nulla. (Az "i" oszlop cellái lehetnek: szöveg, üres, vagy 0.)Köszi!
-
morgusz
csendes tag
Végül is az"i" oszlopból ki tudom szűrni a nem megfelelő sorokat. Így csak a cikkszámonkénti utolsó sorok kiszűrése a problémám.
Köszi!
-
morgusz
csendes tag
Még egy kérdés!
FKERES függvénnyel keresek egy sorba rendezett tartományból adatsorokat. Két oszlopban (A és B) vannak a keresendő adatok, és ugyanúgy két oszlopba (X,Y), és mellettük levő cellákba várnám az eredményt. Amíg csak az A oszlop adatait kerestem, addig működött. Viszont a B oszlop adatait keresve az Y oszlopba nem talál, illetve hibás találatot ad.
Mi lehet a baj? -
morgusz
csendes tag
Sziasztok!
Hogy lehet az, hogy a HA függvény egy üres cellában értéket talál? Ha delete-t nyomok az üres cellára, akkor üresnek találja. Illetve az érdekelne még, hogy a tartományban az összes hasonló üres cellájából hogy lehet eltüntetni amit talál benne.
Köszi! -
morgusz
csendes tag
Köszi! Megpróbálom.
[ Szerkesztve ]
-
morgusz
csendes tag
Sziasztok!
Beérkező hibás adatok cseréjével harcolok.
Egy A:H oszlopokból álló tartomány D oszlopában vannak hibás adatok, amit az O1:P20 (valószínű hogy ez lista bővülni fog) tartomány adatai alapján, (O a hibás, P a jó adat) kellene javítani. Találtam itt egy makrót, amit alkalmazva a D oszlopban a rosszat kicseréli ugyan, de a jók helyett és az üres cellákban meg "#hiányzik" eredményt produkál.
Sub csere()
Dim cv As Object
For Each cv In Range("A1:H10000")
Range(cv.Address) = Application.VLookup(cv, Range("O1:P20"), 2, 0)
Next
End Sub
Ha valaki tud, és ráér, kérem segítsen!
Köszönöm! -
morgusz
csendes tag
Sziasztok!
Rögzítettem egy makrót, aminek 35 munkalapon (alap1..alap35) kellene lefutnia.
Sajnos nem tudom, hogy kell azt megadni.
Bocsánat! Ezt egy meglevő makró folytatásaként, a végére kellene berakni.
Előre is köszönöm a segítséget!
Sheets("alap1").Select
ActiveWorkbook.Worksheets("alap1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("alap1").Sort.SortFields.Add2 Key:=Range("A1:AP1") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("alap1").Sort
.SetRange Range("A1:AP150")
.Header = xlYes
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End Sub[ Szerkesztve ]
-
morgusz
csendes tag
Sziasztok!
Lehet olyat csinálni, hogy három makró meghatározott sorrendben automatikusan lefusson egy gombbal v. valahogy indítva? Láttam leírást róla, de valószínűleg rosszul csináltam, vagy értettem valamit, mert csak hibaüzenetekig jutottam.
Néha kell egyenként is indítani őket, de az automatikus azért kellene, mert sokáig fut egyik-egyik, és azalatt ott kell hagynom a gépet.Köszönöm: morgusz
-
morgusz
csendes tag
Sziasztok! BUÉK!
Makróval frissül egy táblázat.
A táblázat "A" oszlopában van egy szám, ami a következő 3 oszlopban levő adatok aznapi keletkezési időpontját jelenti (egész órában, két számjeggyel általános formátumban ). Hogy tudok egy, a sorában v. valahol levő cellában a forrásfájl aktualizálásra figyelmeztetni, ha azóta több mint egy óra eltelt (pl. 15:30 óra van). A MOST függvénnyel próbálkoztam eddig, de nem boldogultam a szám formátumokkal.
A makró nem indulhat automatikusan, mert előtte a forrásfájlt kell a helyére másolni kézzel.
Új hozzászólás Aktív témák
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Canva Pro előfizetés - 1 éves
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen