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

• #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é] .

• #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.

• #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

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