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

• #52837 Fferi50 Topikgazda Csabex #52836

  Új Válasz 2024-06-12 22:46:27 #52837

  Ú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

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz Csabex #52836 üzenetére

  Szia!
  Majdnem.
  A műveletek "álnév" alatt értem az általad végzendő műveleteket, kb. akkor így lehetne:
  Sub Masolas()
' Feltétel: A forrás munkafüzet legyen nyitva, mielőtt a makrót elindítod
Dim fnev As String
fnev = Dir("F:\123\*.xlsx")
Do While fnev <> ""
    Workbooks.Open "F:\123\" & fnev
    With ActiveWorkbook ' mivel az éppen megnyitott munkafüzet lesz aktív
        .Sheets(1).Range("D4").Value = Sheets("Seged").Range("D1").Value 'a Sheets(1) helyett írhatod a Sheets("név") formát, ahol a név a munkalap neve
        .Sheets(1).Range("E4").Value = Sheets("Seged").Range("D2").Value
    End With
    Workbooks(fnev).Close SaveChanges:=True 'a változás után bezárjuk a munkafüzetet
fnev = Dir()
Loop
MsgBox "Kész."
End Sub
  Továbbá a For ciklusra sincs szükség, hiszen a neveket a Dir parancs adja vissza..
  Üdv.

• #52832 Delila_1 veterán Csabex #52825

  Új Válasz 2024-06-12 07:10:25 #52832

  Ú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

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Csabex #52825 üzenetére

  Helyrejött a gépem lelke egy újraindítás után, fel tudtam tölteni a fájlt.
  [Ímé] .

• #52831 Delila_1 veterán Csabex #52827

  Új Válasz 2024-06-12 06:35:06 #52831

  Ú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

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Csabex #52827 üzenetére

  Szia!
  Add meg a címedet privátban, és küldök egy fájlt a második kérdésedre.
  Nálam most nem működnek a fájlmegosztók.

• #52830 Fferi50 Topikgazda Csabex #52825

  Új Válasz 2024-06-11 23:42:39 #52830

  Ú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

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz Csabex #52825 üzenetére

  Szia!
  A második kérdésedre egy ötlet - bár nem legördülő menü...
  Beszúrsz ActiveX parancsgombokat, amiknek a jobb egérgomb - tulajdonságok menüpontban megjelenő Properties ablakában megkeresed a Picture tulajdonságot, ide bemásolod a megfelelő logot. A parancsgomb(ok)hoz hozzárendeled a szükséges makró(ka)t.
  Igaz, ebben az esetben egy oszlopra/sorra szükséged van a parancsgombok elhelyezésére, de talán nem zavar túlságosan.
  Másik megoldási lehetőség, hogy a Ribbonra kitehetsz saját Menücsoportokat, amelyben lehet legördülő ikonokat is definiálni. Ehhez szükség van egy szerkesztőre pl. Office RibbonX Editorra. Ha gondolod, privátban tudok valamennyi segítséget adni hozzá hétvége felé.
  Üdv.

• #52828 föccer nagyúr Csabex #52827

  Új Válasz 2024-06-11 21:53:44 #52828

  Ú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

  Privát üzenet küldése

  

  föccer

  nagyúr

  válasz Csabex #52827 üzenetére

  A második az nekem fekete lyuk. Régen néztem ezt és elvileg combobox-al meg lehet csinálni, de azt még nem néztem meg sosem, hogy hogyan kell megcsinálni.

  Meg lehet csinálni azt is, hogy egy megadott könyvtárban lévő összes fájlt szépen megnyitja és menti, de azt így fejből nem tudom beírni. Egy fájlrendszer objektumot kell definiálni és azzal megoldható.

• #52826 föccer nagyúr Csabex #52825

  Új Válasz 2024-06-11 20:51:38 #52826

  Ú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

  Privát üzenet küldése

  

  föccer

  nagyúr

  válasz Csabex #52825 üzenetére

  LEgyen egy seged munkalapon A1-től A16-ig felsorola a munkafüzetek nevei, B1-től B16-ig a munkafüzetek nevei. D1-be a D4 cellába bekerülő, D2-be az E4-be bekerülő. D3-ba =darab2(A:A)

  Rakj ki egy gombot a fejlesztőeszközök menüből, amire a megírt makrót fogod rakni.

  Sub Masolas()
Dim i As Integer
For i = 1 To Sheets("Seged").Range("D3").Value
   Workbooks(Sheets("Seged").Cells(i, 1).Value).Sheets(Sheets("Seged").Cells(i, 2).Value).Range("D4").Value = Sheets("Seged").Range("D1").Value
   Workbooks(Sheets("Seged").Cells(i, 1).Value).Sheets(Sheets("Seged").Cells(i, 2).Value).Range("E4").Value = Sheets("Seged").Range("D2").Value
Next
MsgBox "Kész."
End Sub

  Ha ugyan az a munkalap néven van az összes munkafüzetben, akkor lehet egyszerűsíteni, hogy nem hazsnálod a Seged B oszlopát. Akkor így módosul:

  Sub Masolas()
Dim i As Integer
Dim Cel_Ws As String
Cel_Ws = "CélMunkafüzetNeve"
For i = 1 To Sheets("Seged").Range("D3").Value
   Workbooks(Sheets("Seged").Cells(i, 1).Value).Sheets(Cel_Ws).Range("D4").Value = Sheets("Seged").Range("D1").Value
   Workbooks(Sheets("Seged").Cells(i, 1).Value).Sheets(Cel_Ws).Range("E4").Value = Sheets("Seged").Range("D2").Value
Next
MsgBox "Kész."
End Sub

• #48679 Fferi50 Topikgazda Csabex #48678

  Új Válasz 2022-03-09 23:18:31 #48679

  Ú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

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz Csabex #48678 üzenetére

  Szia!
  Ha szövegformátumú a cella, akkor a keresés 5, csere 7, -re.
  Ha szám formátum, akkor másként lehet:
  Ha pl. 7-re szeretnéd cserélni, akkor egy segédcellába beírod 2, majd ezen a cellán Ctrl+C (azaz másolás), utána a kijelölt tartományon irányított beillesztés - művelet: összeadás. Ezután a segédcellát törölheted.
  Üdv.

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