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

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