-
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
-
Delila_1
Topikgazda
Ha jól értem, egy könyvtárból kiválasztott fájl első lapjának A3:F3 tartományát akarod bemásolni az indító fájl A5:F5 celláiba.
Sub mm()
Application.DisplayAlerts = False
Dim fldlg As FileDialog, utvonal As String
Dim cel As String, forras As String
Dim rv, oszlop As Integer
cel = ActiveWindow.Caption
utvonal = "E:\Eadat\" 'Itt add meg az induló könyvtár útvonalát
Set fldlg = Application.FileDialog(msoFileDialogOpen)
With fldlg
.Title = "Megnyitás"
.InitialFileName = utvonal
.FilterIndex = 1 '*.xls, vagy *.xlsx
End With
rv = fldlg.Show
If rv Then
Workbooks.Open fldlg.SelectedItems(fldlg.FilterIndex)
forras = ActiveWindow.Caption
Workbooks(forras).Sheets(1).Range("A3:F6").Copy _
Workbooks(cel).Sheets(1).Range("A5")
End If
Workbooks(forras).Close
Application.DisplayAlerts = True
End Sub[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Excelbarat
tag
válasz Istv@n #16949 üzenetére
Hi! 16738-as hozzászólásomban linkeltem egyet!
Tessék a működése hogy beírsz egy maszk nevet ami mindegyiknél azonos (te esetedben: 2013.01.*) és ő a soron következő fájlokat megnyitja majd az első munkalapról(vagyis ami aktív volt utoljára) az "A2" cellától kijelöli az alatta és jobbra mellette lévő sorokat amíg van benne érték (azért A2 mert azt feltételezem hogy az első sorban a fejlécek vannak és az összesítőbe ez nem kell!)
Ha neked máshol van akkor ezt a sort írd át a makróban:
Range("A2").Select ezt írd át oda ahol az első adatod van a táblázatban.
Ha van összegző sorod a napi kimutatásodban akkor jelöld az igent és átmásolásoknál az utolsó sorokat törli. Ha nincs értelemszerűen a nemet.
Ha ezt használod akkor megnyitja az összes napot bemásolja egy külön fülre majd ezt a fület elmenti egy új fájlba ugyan abba a mappába, a végén kiírja hogy milyen fájlnévvel hova mentette.
(a kódot persze szabadon variálhatod tetszés szerint) -
Istv@n
aktív tag
válasz Excelbarat #16952 üzenetére
Szia!
Köszönöm!
Ez alapján már át tudom variálni a sajátomat! -
picsu
csendes tag
válasz Delila_1 #16951 üzenetére
Szia Delila!
Nagyon köszi a segítséget. Annyi a különbség, hogy a könyvtáramban van vagy 80 file amiből ezeket a cellákat ki kellene venni és a makrós xls-be belerakni egymás alá...
...és ha ez megvan jön a feketeleves...
Minden tábla ugyanilyen csak különböző adatokkal. Amire szükség lenne az az "A" oszlopban levő számok és a hozzá tartozó 'AE" oszlopban levő szám. Például 10-es sor: 01-B340L --> 3.480
Ami a buktató nekem, hogy egy komisszió többször is szerepel az "A" oszlopban. (mivel első, másod és van, hogy harmadosztályú) mint például a "A11-A12-A13" celláknál.
Ilyenkor csak mindig az a sor kellene ahol az "F" oszlopban "1"-es van.
Tehát például 18-as sor: 01-B462L --> 12.560Még mindig tudsz segíteni?
Isti
Melyik a kakukktojás? ARANY - PETŐFI - EZÜST
-
atillaahun
veterán
Ha a 2003 nem eszi meg a HAHIBA-t, akkor mit tudok helyette használni?
-
Delila_1
Topikgazda
válasz atillaahun #16956 üzenetére
=ha(hibás(ide_jön_a_függvény);ezt_tegye_hiba_esetén;ez_legyen_ha_nem_fut_hibára)
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
ricshard444
veterán
Sziasztok, lenne egy nagy problémám:
El is jutok egészen addig, hogy beírom: B3-B2 , de kiírja, hogy... ÉRTÉK
Mit nem veszek észre?
Vannak dolgok...
-
Delila_1
Topikgazda
válasz atillaahun #16959 üzenetére
Gratu.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz ricshard444 #16958 üzenetére
Valószínű, hogy szövegként szerepelnek a cellákban a számok. A szövegből oszlopok elkészítésénél add meg, hogy számként kezeljen mindent, ami annak látszik.
Technikai tippek, hogy ne teljen el az ifjúságod a képernyő görgetésével:
1. A1-en állva Shift+Ctrl+le nyíllal egy lépésben kijelölöd az adatokat tartalmazó oszlopot.
2. A képlet beírása után a cella jobb alsó sarkában lévő kis fekete négyzetre duplán klikkelsz, és már le is másolta a képleteket addig, míg a balra mellette lévő cellákban adatot talál.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz ricshard444 #16962 üzenetére
Állj az első, látszólag számot tartalmazó cellára. Vedd hozzá a következőt a kijelölésben. Ha lent, a státuszsorban látod az összegüket, számokat tartalmaznak, ha nem, továbbra is szövegek.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz ricshard444 #16964 üzenetére
Megeshet, hogy nem mindegyik alakult számmá, de ezt most megoldjuk.
Írj egy üres cellába egy egyest. Másold Ctrl+c-vel.
Jelöld ki a kérdéses tartományt (első cellán állsz, Shift+Ctrl+le nyíl). Jobb klikk, Irányított beillesztés, szorzás.Ezzel az egész tartományt felszorzod 1-gyel, és egyúttal számmá alakítod, ha valamelyik mégsem az.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz ricshard444 #16966 üzenetére
Cseréld ki a pontokat vesszőkre.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz ricshard444 #16968 üzenetére
Kijelölöd a B oszlopot. Kezdőlap, jobb oldalon a távcső, csere.
Keresett szöveghez írj egy pontot, a másik rovatba vesszőt. "Az összes cseréje" gomb elvégzi a feladatot.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz ricshard444 #16970 üzenetére
Csak időt kell adni érte....
Szívesen.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz ricshard444 #16972 üzenetére
Mert a képletet másolod.
Jelöld ki a másolandó területet, Crrl+c-vel tedd a vágólapra.
Állj abba a cellába, ahova az első értéket akarod tenni.
Jobb klikk, Irányított beillesztés, Értéket.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz ricshard444 #16974 üzenetére
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
detroitrw
addikt
válasz Excelbarat #16947 üzenetére
Szia!
sajnos így se működik
kipróbáltam egy teljesen üres lapon de ugyan úgy nem működikazt is kipróbáltam hogy lépjen át arra a fülre s ott ugyan azt a parancssort futtassa, de akkor is hibát dob
nem értem mi lehet a problem
-
félisten
válasz detroitrw #16976 üzenetére
Ennyit próbálj ki egy újonnan létrehozott üres táblán. Ha így is hiba lesz, akkor ott a VBA-val van gond.
Private Sub CommandButton1_Click()
CommandButton2_Click
End Sub
Private Sub CommandButton2_Click()
MsgBox ("CommandButton2_Click")
End Sub[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz detroitrw #16976 üzenetére
Eltünt a netem, nem tudtam szerkeszteni...
Szóval ha az előző módszer megy kifogástalanul, akkor ennyit kell módosítani (példában Munka1 lapon van a command1 és a munka2-n a command2)Munka1 - itt fontos, hogy hivatkozni kell a munka2-re
Private Sub CommandButton1_Click()
Munka2.CommandButton2_Click
End SubMunka2 - itt az a fontos, hogy Public a deklaráció (enélkül munka1-en nem "látja" a command1)
Public Sub CommandButton2_Click()
MsgBox ("CommandButton2_Click")
End SubRitkán alkalmazzák az ilyen megközelítést, pont azért, mert körülményes és könnyen be lehet nézni, helyette Module-ban globálisan célszerű az eljárásokat megírni.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Caipi
tag
Sziasztok,
Szeretnék segítséget kérni a következő feladat megoldásához:
Adott két munkalap.
A Munka2 adatokat tartalmaz, A oszlopban soronként egyedi azonosítóval (pl: 1A0001, 1A0002, stb).
Egyes azonosítókhoz tartozik egy-egy segédexcel file, ami ugyanabban a könyvtárban található. Ezeknek a fájloknak a nevei egy következő oszlopba kerülnek felvezetésre (pl.: 1A0001 esetén nincs név, 1A0002 esetén az adott cellában a "segédfile1.xlsx" szöveg szerepelne).
A Munka1 lapon egy egysoros összesítő van, amelyben az A2 cellában legördülő menüvel kiválasztható a Munka2 "A" oszlopában található azonosítók. A kiválasztott azonosítóhoz ezután sorban megjelenít bizonyos további adatokat egymás után (ezzel készen vagyok).
Szeretném ha sikerülne ide betenni, hogy a kiválasztott azonosító esetén, ha a Munka2 munkalap tartalmaz fájlnevet, akkor működő hivatkozásként itt megjelenjen (azaz az egyik cellában jelenjen meg egy link, amelyre kattintva a pl. "segédfile1.xlsx" nyílik meg).
Ha viszont a a Munka2-n nincs az adott metszetben szöveg, akkor egy üzenetben jelezze, hogy nincs megnyitható fájl. Amennyiben van szöveg ott, de a fájlnév nem helyes (pl: "segédileaa.xlsx", akkor jelezze, hogy a fájlnév nem megfelelő.Tehát az összes fájl, ez az excel és a további fájlok is azonos könyvtárban helyezkednek el.
Köszönöm a segítségeteket előre is! :-)
-
benjaminn
csendes tag
Sziasztok!
Kezdő excelesként kérném a segítségeteket.
Megpróbálom értelmesen leírni a problémámat.
adott két táblázat , és azt szeretném elérni hogy a táblázat1-ből csak azokat jelenítse ami a táblázat2-ben is szerepel. Mind a 2 táblázat A oszlopa a vonalkódját tartalmazza , a táblázat 2 tartalmazza azokat a vonalkódokat amiket módosítanom kell a táblázat1 -ben.
Segítségeteket előre is köszönöm. Ha nem világos szóljatok megpróbálom másképpen leírni.
köszikösziAz ész tényleg igazságosan van elosztva. Még nem találkoztam senkivel, aki arról panaszkodott volna, hogy neki kevés jutott.
-
lappy
őstag
-
lappy
őstag
válasz benjaminn #16986 üzenetére
Szia!
Ha én neked lennék akkor a következőkép járnék el:
az 1-es táblázatra megnézném, hogy melyek azok amik a 2-es ben benne van pl: ha és fkeres fgv. kel
ezután egy szűrőt tennék rá és pl. ahol 1 van azokat kell csak megváltoztatni.
a segédoszlop törléseBámulatos hol tart már a tudomány!
-
Caipi
tag
Köszönöm,
Bemásoltam, próbálgattam, de mindig #HIÁNYZIK -al jön vissza.
(megnéztem, a HOL.VAN()-al van problémája. Okozhatja az, hogy amit kerestetek (A3 cella, lásd lent;listából választható?)
Leszedtem HA()-t az elejéről, csak az index()-t néztem, de nem jöttem rá, mi a hiba.
HIPERHIVATKOZÁS(INDEX('Munka2'!$B:$AV;HOL.VAN($A$3;'Munka2'!$:$AV;0);15))Nekem az első lap $A$3 cellája adja az adatot, amit meg kellene keresnie a Munka2 B:AV tartományban, aholis a 15. sorban vannak jelenleg a file nevek beírva.
[ Szerkesztve ]
-
sarvari
csendes tag
Sziasztok!
Fontos lenne, tudna nekem valaki segíteni?!Van egy táblázatom:
-----------------------------
|név | xy |
|szám| 1234 ||vas. | szélesség
| | 10cm | 20cm | 30cm |
|3cm | 300g | 600g | 900g |
|4cm | 400g | 800g | 1200g |
|5cm | 500g | 1000g | 1500g |
-----------------------------ebből akarok olyat csinálni, hogy:
---------------------------------
|név | szám | vas.| szél.| súly |
| xy | 1234 | 3cm | 10cm | 300g |
| xy | 1234 | 3cm | 20cm | 600g |
| xy | 1234 | 3cm | 30cm | 900g |
| xy | 1234 | 4cm | 10cm | 400g |
| xy | 1234 | 4cm | 20cm | 800g |
| xy | 1234 | 4cm | 30cm | 1200g|
| xy | 1234 | 5cm | 10cm | 500g |
| xy | 1234 | 5cm | 20cm | 1000g|
| xy | 1234 | 5cm | 30cm | 1500g|
---------------------------------Milyen függvénnyel tudnám ezt megoldani?
-
Caipi
tag
Közben sikerült egy kicsit másként megoldanom, de a Hiperhivatkozás() szintaktikája sokat segített.
Köszönöm szépen!
=+HA(VAGY($A$3="";BAL($A$3;4)="Aaaa");"";HIPERHIVATKOZÁS(FKERES($A$3;'Munka2'!B:AV;15;HAMIS)))
Így ha nincs szöveg, nem ír ki semmit, ha van akkor kiteszi linkkel. Ha a file név nem megfelelő, akkor az excel feldob egy hibaüzit, hogy nem jó a file.
Szuper :-)
-
BuktaSzaki
tag
Sziasztok,
megint belefutottam egy olyanba, hogy van két oszlop, A és B. B összes eleme A-nak is eleme.
Azt kéne kiíratni mondjuk C-be, hogy A melyik elemei nem szerepelnek B-ben.köszi,
B. -
Delila_1
Topikgazda
válasz BuktaSzaki #16994 üzenetére
G1-be:
=HA(DARABTELI(B:B;A1)=0;"Nincs";"")Ezt a képletet másold le addig a sorig, ahol az A oszlopban még van adat.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lappy
őstag
válasz sarvari #16991 üzenetére
Szia!
Csak sejtem hogy mit szeretnél, de azt úgy akarod hogy a két táblázatból lesz egy? Nem igazán tudom, hogy miből mi lenne?
Mert ha csak az alsó táblázat kell akkor nem nagy dologról van szó.
Vmi képet tudsz felrakni, meg vmi leírást.[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
Caipi
tag
Igen, így tökéletesen megfelel amit létrehoztam a segítségeddel :-)
Megnézetem vele, hogy az azonosítót valóban azonosító-e (nem Aaa, pl) és, ha tényleg azonosító akkor rákeres a második fülön. Ha üres a végeredmény, nem jelenít meg semmit, ha az adott cella tartalmaz valamit, akkor egy linket hoz létre a szöveg alapján.
Ha nem jó a szöveg (nincs ilyen file, vagy rosszul írtam be a file nevet), akkor az excel hibaüzenete jön vissza, ebből tudom, hogy meg kell vizsgálnom az adott cellába írt szöveget. Szval minden klappol :-)Nézegettem az excel súgóban a Hiperhivatkozás()-t. Van olyan lehetősége is, hogy nemcsak megnyitja az adott filet, hanem a filen belül a megadott cellára ugrik.
Ez is hasznos lenne nekem, de mivel én függvénnyel rakom bele a fájlnevet nem jöttem rá, hogy így is meg tudnám-e csinálni (a szintaktika szerint [ ] közé kellene tennem a megnyitni kívánt file nevét (de ha ezt tettem nekem nem tudta értelmezni a zárójelek közé került függvényt), majd utána megadnom a cellát).
Van esetleg erre is valakinek ötlete?=HYPERLINK("[próba.xlsx]Munka1!A1", "Link")
Köszönöm
-
sarvari
csendes tag
Új hozzászólás Aktív témák
- Napelem
- Témázgatunk, témázgatunk!? ... avagy mutasd az Android homescreened!
- ZIDOO médialejátszók
- Torrent meghívó kunyeráló
- Renault, Dacia topik
- Milyen okostelefont vegyek?
- sziku69: Fűzzük össze a szavakat :)
- Teljes verziós játékok letöltése ingyen
- Kerékpárosok, bringások ide!
- A fociról könnyedén, egy baráti társaságban
- További aktív témák...