-
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
válasz ben800 #36400 üzenetére
Szia!
Sub adatpotlas()
Dim sor As Long, usor As Long, FN As String
Const utvonal = "F:\Mappa1\" '******** 1 ********
Dim Fotabla As Worksheet, WF As WorksheetFunction, talalt As Variant
Set Fotabla = ActiveWorkbook.Sheets(1) '******** 2 ********
Set WF = Application.WorksheetFunction
FN = Dir(utvonal & "*.xlsx", vbNormal)
Do While FN <> ""
Workbooks.Open Filename:=utvonal & FN
Sheets(1).Activate '******** 3 ********
usor = Cells(Rows.Count, 2).End(xlUp).Row
For sor = 2 To usor
If WF.CountIf(Fotabla.Columns(4), Cells(sor, "B")) > 0 Then
talalt = WF.Match(Cells(sor, 2), Fotabla.Columns(4), 0)
If Cells(sor, "F") > "" Then
Fotabla.Range("H" & talalt) = utvonal & " " & FN '******** 4 ********
Fotabla.Range("I" & talalt) = Cells(sor, "F")
End If
End If
Next
ActiveWorkbook.Close False
FN = Dir()
Loop
End SubAz összesítő füzetben másold egy modulba a makrót.
Csillagos sorok:
1. a saját útvonaladat írd az "F:\Mappa1\" helyére
2. ha az összesítő füzetnek nem az első lapjára kell a kigyűjtés, a zárójelbe a valós sorszámot-, vagy idézőjelek közé a lapnevet írd be Set Fotabla = ActiveWorkbook.Sheets("Munka1")
3. a 2-es pont vonatkozik a megnyitott füzetekre is
4. a H oszlopba most találat esetén a találat mappáját és füzetének a nevét írja. Ehelyett lehet Fotabla.Range("H" & talalt) = "Megvan"[ 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.
-
vigyori78
őstag
Sziasztok!
Kis segítség kéne, van egy régi táblázatom ott valahogy beállítottam, hogy a zárolt, rejtett cellákat ki sem lehetett jelölni azaz rányomni hanem elugrott a kurzor a celláról, ezt szeretném most is beállítani egy új táblázatban de nem találom hol és mi is volt az amit beállítottam.
Most ezt dobja fel :
előtte ezt sem írta ki csak elugrott onnan a kurzor.[ Szerkesztve ]
-
Temerti
tag
válasz vigyori78 #36409 üzenetére
Szia!
Először az adott cellánál jobb klikk, majd a Cellaformázás menüpontban, a Védelem fülön lehet beállítani a zárolást vagy rejtést. Innen kilépve majd a Korrektúra fülön a Lapvédelem opcióval tudod levédeni. (Régebbi Excelnél) Az újabbaknál azt hiszem a Véleményezés fülön van a Lapvédelem. -
tzimash
őstag
üdv,
van egy makróm, addig eljutottam, hogy datepicker-rel kiválasztok egy dátumot, viszont azt szeretném, hogy egy másik excel fájlban (legyen data.xlsx) megnézi, hogy a megadott dátumhoz (a dátumok az "A" oszlopban vannak) a "B" oszlopban van-e adat vagy üres a cella,
ha van akkor msgbox "blabla a megadott dátumhoz tartozik adat",
ha nincs akkor call akármi, onnan már tudom
gondolom match-csel kell, csak nem áll össze
tudtok segíteni? -
vigyori78
őstag
-
vigyori78
őstag
válasz Pakliman #36414 üzenetére
Szia.
Köszi így okésMár csak erre kéne megoldás : (#36410) vigyori78
2007-nél nem volt ilyen probléma, 2016-nál ha megfogom és a sarkánál lehúzom a cellát, másolom akkor a tartalmat átmásolja de nem másolja a cellaformátumot hanem felosztja és olyan lesz mint cellaegyesítés előtt.
És ezt is csak akkor csinálja ha közös használatra engedélyezve van a munkafüzet. -
Rcsi
csendes tag
Sziasztok!
Egy kis segítségre lenne szükségem.
Meg kellene számolnom egy táblázat soraiban lévő adatokat.
A cellákban 1,2,3-as számok vannak. Mindhárom szám három szinnel van kombinálva.
Tehát van piros, zöld, és kék szín.
A Darabtelivel meg tudom számolni hogy pl hány db 2-es van, de külön kellene a piros 2-es, kék 2-es stb.
Mit tudtok javasolni?Köszönöm!
-
Talala
senior tag
Sziasztok! HA függvénybe "értek ha igaz" sorba tudok "MA" függvényt írni? A cél az ha igaz a feltétel akkor a mai dátum jelenjen meg.
-
Talala
senior tag
válasz Delila_1 #36421 üzenetére
Oh basszus. köszi. Az a fránya "" ott maradt a függvénynél is.
Ha jól gondolom ez minden nap frissülni fog, szóval a mindenkori aktuális dátumot jeleníti meg. Arra van lehetőség, hogy azt a dátumot írja ki amikor teljesült a feltétel és ne lépjen tovább?
[ Szerkesztve ]
-
Behuska
újonc
Sziasztok,
A Munka1 lapon az A,B,C oszlopban vannak adatok. B oszlop tartalmazza a cégek neveit. Azokat a cégek neveit szeretném a Munka2 A oszlopába átmásolni akiknek a cégneve tartalmazza a „kft” vagy „korlátolt felelősségű társaság” szövegrészt.
Melyik függvény?Köszönöm szépen a segítséget!
Behus -
Delila_1
Topikgazda
válasz Talala #36426 üzenetére
Ezt egy rövid, laphoz rendelt makróval (lásd a Téma összefoglalót) lehet elérni.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target <> "" Then
Cells(Target.Row, "B") = Date
End If
End SubAz If Target.Column = 1 jelzi a makrónak, hogy az első (A) oszlopba írás esetén írja be a dátumot.
Ha nem a B oszlopba akarod íratni, a Cells(Target.Row, "B") = Date sorban a "B" helyére írd a céloszlop betűjelét.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lenkei83
tag
Sziasztok!
Comboboxba szeretnék applikálni egy szűrt listát, de nem akar összejönni:
Dim nevlista As Range
szűrés...
Set nevlista = valasztott_munkalap.Range("B2:B" & valasztott_munkalap.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible)
ComboBox_mvnev.List = nevlista.ValueRun-time error '381'-el száll el, could not set the List property.
Szűrés előtti sorbarendezéssel persze könnyen meg lehet oldani mert akkor egyszerre fel tudom venni a szűrt tartományt mivel egybefüggő lesz a tartományom, de nem akarom ennyire bonyolítani. Ha lehet a ciklusokat is kihagynám jelen esetben.
Van valakinek valami ötlete erre?
Köszi.
P. -
Delila_1
Topikgazda
válasz lenkei83 #36429 üzenetére
Egyszerűbb összehozni, mint elmesélni.
A lényeg, hogy a szűrt listát átmásolod valahova, és ennek az új tartománynak a címét adod meg szöveges értékként a ComboBox RowSource tulajdonságaként.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
tzimash
őstag
válasz Delila_1 #36417 üzenetére
Most volt időm rá.
Szóval a DTPicker1 értékét beletettem egy "datum" nevű string típusú változóba (date típusúval is próbálkoztam, de azzal nem működött jól később), amit szeretnék használni a Userform-on kívül is, tehát valahogy globális változóvá kellene tennem.
Ebben (is) tudsz segíteni?[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz tzimash #36434 üzenetére
A string tip. változót dátumként így írhatod fel a lapra: range("a1")=cdate(dtpicker)
A formátumot is megadhatod: range("a1")=format(cdate(dtpicker), "yyyy.mm.dd")
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Petium001
csendes tag
Sziasztok!
Olyan kérdésem lenne, hogy van egy kinyert adathalmaz (napi számlák),dátumokkal, összegekkel. Hogyan lehet megoldani, hogy a dátumok elkülönüljenek egymástól, mondjuk 3 sor legyen közöttük, az adott dátumokhoz tartozó összegek automatikusan összegződjenek, (ez a két dolog annyira nem lényeg, megoldom manuálisan) és minden elkülönült csoport egy meghatározott előtagú sorszámot kapjon? Előrebocsátom, hogy nem vagyok excel zseni
Köszi
Péter
Petium
-
föccer
nagyúr
válasz Petium001 #36438 üzenetére
Az összegzéshez használd a részösszeg funkciót (ha jól emlékszem adatok menü, de súgó segít). A változó sorszámot csak úgy tudom egyszerűen elképzelni, hogy ha a dátumból valamilyen formában származtatható. (mondjuk a dátum maga lenne a sorszám ((a dátum alapvetűen egy számérték, mégpediglen a 1900.01.01 óta eltelt napok számával megegyező szám)).
üdv, föccer
Építésztechnikus. Építőmérnök.
-
-
Jampec82
csendes újonc
Sziasztok!
Lehet bagatell kérdés.
2010es Excel-ben hol lehet azt beállítani, hogy ha egy cellán állok, akkor a sor és oszlop is végig legyen jelölve ahhoz a pozícióhoz, hogy látszódjon hol van az ember? Korábban volt ilyen, ha jól emlékszem. Szálkereszt néven futott talán, de nem biztos.
Előre is köszi!
Jani -
tzimash
őstag
válasz Delila_1 #36436 üzenetére
Nem sikerül valamiért
A Userform kódján belül, ahol értéket kap (datum = DTPicker1) nincs gond, de amint meghívom a változót máshonnan, nincs értéke. Üres az MsgBox.
Option Explicit és a Public datum As String ott van.
Annyit változtattam, hogy nem DTPicker1_Change() a függvény, hanem OKButton_Click(), mert előző esetben, nem tudok pl egy hónapot visszalapozni a pickerben.
Van ötleted?
Bocs a kissé amatőr megfogalmazásokért -
Delila_1
Topikgazda
válasz tzimash #36445 üzenetére
Hívd meg úgy a kiírást, hogy közvetlenül átadod a kiválasztott dátumot.
kiiras dtpicker1
sub kiiras(Kelt)
msgbox Kelt
end subAz átadott-átvett változónak lehet eltérő a neve, mint a fenti példában is.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Na, még egyszer, csak ezúttal OnePlus Open néven
- Amazon Kindle
- Kamionok, fuvarozás, logisztika topik
- Amlogic S905, S912 processzoros készülékek
- Nyíregyháza és környéke adok-veszek-beszélgetek
- A régi node-okra koncentrál a szankciók miatt Kína
- Magga: PLEX: multimédia az egész lakásban
- Azonnali VGA-s kérdések órája
- Windows 11
- Székesfehérvár és környéke adok-veszek-beszélgetek
- További 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
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!