-
Fototrend
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
-
PETEE78
senior tag
Sziasztok,
a "Név mező"-t szeretném egér kilkk helyett gyors billentyűvel elérni, mivel az ott található cella infókat szeretném kimásolni egy automatizálási folyamat részeként.
a ctrl F3 nem az igazi, de ha más nem marad megoldom azzal. Nekem csak az oszlop és szám infok kellenének.
köszi
Peti -
-
PETEE78
senior tag
Sziasztok!
Valaki meg tudná nekem mondani, ez miért nem működik? Outlook2013 ból Excel2013-as Munkafüzettel okoskodok...
Const xlUp As Long = -4162
xlWB.Worksheets(1).Range("A:A").Select 'ezt kijelöli
xlWB.Worksheets(1).Range("A:A.End(xlUp)").Select 'ezt mééé nem?
-
PETEE78
senior tag
Sziasztok!
Outlook 2013-ból indított folyamat: inbox (küldő, tárgy, dátum méret) adatokat kimásolja egy excelbe. Mikor lefuttatom párszor, random a legelső sorhoz tartozó adatokat nem másolja át. Vagy a tárgyat vagy a feladót vagy mindkettőt kihagyja. Outlook levél frissítés ezt okozhatja? Nem értem, mondjuk 3x helyesen lefut, utána meg a legelső adatsorom hiányosan.
-
PETEE78
senior tag
Sziasztok!
Outlook2013 Inbox beérkező levelek küldő, tárgy, dátum, esetleg méret adatait szeretném kigyűjteni egy excel munkalapra. Nyilván a Ctrl+c volna a legegyszerűbb...
Ezt hogy lehet vb-ben megírni? Mondjuk adott, hogy az adott excel is már meg van nyitva illetve nyilván az Outlook is.
Vagy esetleg csak a fent említett adatokat 1db txt file-ba lementeni?
Ha útmutatót adnátok milyen parancsokkal induljak el, nekem az is megfelel.
Segítségeteket előre is köszönöm! -
#30340
PETEE78
senior tag
[HUN]Tyson
#30338
PETEE78
senior tag
válasz
[HUN]Tyson
#30338
üzenetére
szia!
adatok fül/szűrő/speciális.
más helyre másolja kijelöl
listatartomány, ha van fejléc a2:a8
szűrőtartomány b2:b8
hova másolja c2:c8majd c oszlop kijelöl fejléc nélkül.
ezután adatok fül ismétlődések eltávolítása
folytatja az aktuális kijelöléssel
ismétlődések eltávolítása gombennyi...
üdv,
Peti -
PETEE78
senior tag
Sziasztok! hülye kérdés..
Jól gondolom, hogy ennél a megoldásnál nem fog változni a dátum értéke, ha mondjuk másnap megnyitom a táblát? Mármint azokban a sorokban, ahol már előző nap már feltöltötte dátummal az első cellákat.
Private Sub CommanButton_Click()
ActiveCell = Now()
Cells((ActiveCell.Row), 1) = Date -
#29962
PETEE78
senior tag
dellfanboy
#29961
PETEE78
senior tag
válasz
dellfanboy
#29961
üzenetére
esetleg újraszínezés? kép formázása/kép színe/újraszínezés
-
#29960
PETEE78
senior tag
dellfanboy
#29959
PETEE78
senior tag
válasz
dellfanboy
#29959
üzenetére
-
#29851
PETEE78
senior tag
Fire/SOUL/CD
#29845
PETEE78
senior tag
válasz
Fire/SOUL/CD
#29845
üzenetére
Köszi!
-
PETEE78
senior tag
A dir megoldotta a kérdést
Köszi mindenkinek!
mystring = Format(Now(), "yyyymmdd")
sdateform = Mid(mystring, 3)filename = Dir("X:\Kimeno\221_ALMA_20" & sdateform & "*.*")
oldPath = "X:\Kimeno\"
newPath = "C:\probakonyvtar\" & sdateform
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile oldPath & "\" & filename, newPath & "\" & filename
Set fs = Nothing -
PETEE78
senior tag
Sziasztok!
Hogy lehet megadni egy fájl nevét, ha csak az elejét ismerem?
Mondjuk addig, hogy: 221_ALMA_20151111........ .csv
A pontozott részen lévő karaktereket nem tudom, csak a kiterjesztést
A 151111 része napi dátum révén változik.mystring = Format(Now(), "yyyymmdd")
sdateform = Mid(mystring, 3)filename = "221_ALMA_20" & sdateform &".csv"
oldPath = "X:\BLABLA\221_A"
newPath = "C:\probakonyvtar\151111"
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile oldPath & "\" & filename, newPath & "\" & filename
Set fs = Nothing -
PETEE78
senior tag
Sziasztok!
Könyvtárból alkönyvtárak tartalmát szeretném átmásolni egyik helyről másikra. Erre találtam a neten egy majdnem jó megoldást, amit próbáltam kiegészíteni a saját okoskodásommal.
Az i változót én próbálnám belecsempészni úgy, hogy 01-31-ig változzon.
Az egyik problémám, hogy amint nem talál mondjuk 2015.10.03 végezetű könyvtárat hibára fut és ki is írja a megírtak szerint. Én ezt úgy szeretném, hogy ilyenkor ne hibaüzenetet dobjon, hanem továbblépjen a következő i értékre.
A másik problémám, hogy nem tudom hogy jelöljem a FromPath könyvtárnál a 01-31 részt i változóval.
Segítségeteket köszönöm!Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
Dim i As Integer
i = 1
Do While i < 31
FromPath = "C:\TS AKTUÁLIS\2015.10.0" & (i)
ToPath = "C:\TS AKTUÁLIS\OKTÓBER"If Right(FromPath, 1) = "\" Then
FromPath = Left(FromPath, Len(FromPath) - 1)
End IfIf Right(ToPath, 1) = "\" Then
ToPath = Left(ToPath, Len(ToPath) - 1)
End IfSet FSO = CreateObject("scripting.filesystemobject")
If FSO.FolderExists(FromPath) = False Then
MsgBox FromPath & " doesn't exist"
Exit Sub
End If
FSO.CopyFolder Source:=FromPath, Destination:=ToPath
i = i + 1
Loop
MsgBox "You can find the files and subfolders from " & FromPath & " in " & ToPath
End Sub -
#29080
PETEE78
senior tag
szatocs1981
#29076
PETEE78
senior tag
válasz
szatocs1981
#29076
üzenetére
Köszönöm! Szerintem menni fog, mindenképpen visszajelzek!
-
PETEE78
senior tag
Az nagyon nyakatekert megoldás lenne, hogy
mikor megnyitja a filet nyisson rá egy új lapot, írja be egy cellába a mai dátumot, egy másikba a fájl nevének azt a részét ami a dátumot tartalmazza, a harmadikba pedig egy igaz-hamis választ. Ha igaz akkor futtassa le a hozzárendelt makrót, majd lépjen a következő megadott műveletre, ha nem zárja be a fájlt és csak lépjen a következő megadott műveletre? -
PETEE78
senior tag
Sziasztok!
Elég kezdő vagyok a témában, sőt...
Hogy lehet megoldani, hogy egy fájlt csak akkor nyisson meg a makróparancs, ha a fájlnévben szereplő dátum megegyezik a napi valós dátummal?tehát pl: 221_ALMA_20151016_20151016_1510160939.csv a fájl neve ezt szeretném megnyitni egy makró futtatással, de csak akkor, ha megegyezik az aznapi valós dátummal.
Workbooks.Open Filename:="C:\egy\pelda\feladat\221_ALMA_20151016_20151016_1510160939.csv"
eddig megy
-
PETEE78
senior tag
Sziasztok!
Teljes sort, vagy csak pár cellát szeretnék beszúrni.Mivel baromi nagy a táblázatom, ezért már nem végzi el a beszúrást kevés memóriára hivatkozva. Van valami ötletetek hogy lehetne ezt kicselezni? Mármint hogy számoljon, ha 5 percbe kerül adott esetben akkor is? (Excel2013)
Az adatokat nem rakhatom át másik munkalapra, nem oszthatom két munkalapra stb...Segítségeteket előre is köszönöm!
-
PETEE78
senior tag
válasz
Fferi50
#24386
üzenetére
nem jól fogalmaztam, elnézést.
- a kritérium 1-3 ig úgy értettem, hogy ezeknek mind igaznak kell lenniük ahhoz, hogy az egészet 1 értéknek számolja az adott N segéd oszlopban.
igen a J2-nek 1 értékűnek kell lennie ( 1 vagy 0 szerepel benne)
-igen I2 ben 02 krumpli szerepeljen
-
PETEE78
senior tag
válasz
Fferi50
#24378
üzenetére
nem értem...
ha mindegyik kritérium igaz akkor kell 1 értéket kapnom az N2-es cellába.
kritérium1 : egyéb!U2=0;egyéb!V2=0;egyéb!W2=0;egyéb!X2=0
kritérium2 : DARABTELI(J2;1)
kritérium3: DARABTELI(I2;"02 krumpli")ez N20000-ig beképletezve kiadja az 1 vagy a 0 értékeket.
ha az egyeseket szummázom a 20001-es cellában kijön mondjuk 510dbén azt szeretném, hogy 1 db cellában mondjuk az O2-ben kijöjjön ez az 510-es szummázott érték úgy, hogy ne kelljen beképleteznem hozzá semmilyen segédoszlopot (jelen esetben N), főleg nem 20000-ig.
-
PETEE78
senior tag
válasz
Fferi50
#24376
üzenetére
szia!
2-től 20000 sorig, ha igazak a feltételek, akkor 1-nek számolja az aktuális sort egy cellában. Ez teljesen jó, de nem szeretném 20000 sorig lehúzni az erre vonatkozó képleteket és úgy összeadni a darabszámot, hanem azt szeretném, hogy az egész szummázást 1 cellába jelenítse meg.
tehát az a probléma, hogy most van egy rakat 1 és 0 amit utána még szummázok. Baromira megnöveli az excel méretét, ezt viszont nem szeretném, mert még van pár ilyen eshetőség, amire meg kell csinálnom.=HA(ÉS(egyéb!U2=0;egyéb!V2=0;egyéb!W2=0;egyéb!X2=0;DARABTELI(J2;1);DARABTELI(I2;"02 krumpli"));1;0)
egy másik egyszerűbb helyzetben már sikerült így szummáznom:
=SZUM(HA($O2 : O20000=1;Adatok!$L2:L20000;0))
Bocs a regényért, remélem érthető volt...
-
-
PETEE78
senior tag
Sikerült összehoznom, amit szerettem volna. Most kb úgy érzem magam, mint az az ember, aki a jobb fülét akarja megvakarni, és nem a jobb kezével teszi ezt, hanem a ballal úgy, hogy megkerüli a fejét.
Külön munkalapokon csináltam szűréseket úgy hogy az ismétlődéseket csak 1nek számolja, összesen 3 munkalapon kellett megcsinálnom, majd kitöröltem a szűrési feltételeket és makróval rögzítettem a szűrési eljárást. Ehhez rendeltem a ctrl+b billentyűkombót és már működik is.
Amint lesz hozzá energiám, megcsinálom úgy, hogy le lehessen szedni akit érdekel,"csak" az adatokat kell átírnom...
Mindenkinek nagyon köszönöm a segítségét és rendkívül sokat tanultam már most tőletek!
Köszönöm, üdv:
PETEE78 -
PETEE78
senior tag
válasz
slashing
#24098
üzenetére
Teljesen igazad van..
Előtte egy kérdésem volna, ha ezel sem sikerül, akkor csinálok egy minta filet.Egy adott oszlopra (I) rászűrtem. a végére szeretnék darabszámot kapni a nem üres cellákról úgy, hogy az ismétlődő cellákat csak egyszer számolja az oszlopon belül. Függvény, szűrési feltétel bármivel megoldható..
-
PETEE78
senior tag
Sziasztok!
Egy kis segítségre volna szükségem...Munka1 lap:
U oszlop (U2-U1000)="szám és szöveg" cellák
I oszlop (I2-I1000)="szám és szöveg" cellákszeretném a "szumma" lapon a B2-es cellába összegezni pl az U oszlopban szereplő "01 Alma"-hoz tartozóan az I oszlopban található adatokat.Tehát az I oszlopban hány darab külön "szám és szöveg" cella van és az I oszlopban ha van ismétlődés, akkor azt már ne számolja pluszba.
Segítségeteket előre is nagyon köszönöm!
-
#23994
PETEE78
senior tag
m.zmrzlina
#23992
PETEE78
senior tag
válasz
m.zmrzlina
#23992
üzenetére
tehát pl az 5.sorban található értékek már szerepeltek így egymás után előtte, akkor jelölje x-el az 5.sor végén valahol
-
#23993
PETEE78
senior tag
m.zmrzlina
#23992
PETEE78
senior tag
válasz
m.zmrzlina
#23992
üzenetére
Igen csak,ha minden kívánt oszlopban van egyezés, akkor rakjon x-et az ismétlődő sor végére, de csak az ismétlődő sor végére kell a jelölés, ahol először megjelent az adathalmaz oda nem kell
-
PETEE78
senior tag
válasz
Delila_1
#23990
üzenetére
akkor ír x-et, ha mindegyik cella abban a sorban ugyan olyan értékű...
Én azt szerteném, ha egymás mögött lévő cellák adatai már előtte szerepeltek így a táblázatban, akkor jelölje x-el.
pl d5= zsiráf e5=lámpa F5=14 és ezek így már szerepeltek előtte a táblázatban, akkor az új sorba, ahol ismétlődtek, annak a végére rakjon egy x-et.
Bocs, ha érthetlen vagyok -
PETEE78
senior tag
Sziasztok!
Amit szeretnék megfalósítani függvénnyel:
ha egy táblázatban D5-től G5-ig lévő cellákkal megegyező adatok-értékek már szerepeltek a táblázat ugyan ezen oszlopaiban előtte, akkor az új sor (5.sor) végére mondjuk a P oszlopba rakjon egy x betűt jelölésként.
?
bocs, ha túl egyszerű
?
Új hozzászólás Aktív témák
- Zyxel NAS326
- Xiaomi 15T - reakció nélkül nincs egyensúly
- Vivo X200 Pro - a kétszázát!
- Arc Raiders
- Szünetmentes tápegységek (UPS)
- Dolce Gusto
- Xiaomi Mi 9 - egy híján
- Anime filmek és sorozatok
- Nyíregyháza és környéke adok-veszek-beszélgetek
- „Új mérce az Android világában” – Kezünkben a Vivo X300 és X300 Pro
- További aktív témák...
- Új Razer 16 QHD+ OLED 240Hz i9-14900HX 24mag 32GB 2TB SSD Nvidia RTX 4090 16GB 175W Win11 Beszámítás
- Samsung Galaxy S25 Ultra 256,Újszerű,Dobozával,24 hónap garanciával
- Alkalmi ár! Gamer Notebook! Acer Nitro 15 - I7 11800H / RTX 3060 / 16GB DDR4 / 512 SSD + 1TB HDD
- AKCIÓ! Intel Core i9 14900K 24 mag 32 szál processzor garanciával hibátlan működéssel
- HIBÁTLAN iPhone 14 Pro 128GB Space Black -1 ÉV GARANCIA -Kártyafüggetlen, MS3590
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest