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

• #51282 Fferi50 Topikgazda föccer #51277

  Új Válasz 2023-08-08 16:28:57 #51282

  Ú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 föccer #51277 üzenetére

  Szia!
  Ha a terület egyforma, akkor az lehet a gond, hogy annak a munkalapnak kell aktívnak lenni, amelyikbe az értéket be szeretnéd illeszteni.
  Egyébként használható a With utasítás is:
      Dim Akt_datum_oszlop As Integer
    With Workbooks("Tech_elemzo_recet_mintavetel_v4_3.xlsm")
    Akt_datum_oszlop = .Sheets("KEZELŐ").Range("H19").Value
    MsgBox (Akt_datum_oszlop)
      .Sheets("MBO_haladás").Activate
      Range(Cells(4, Akt_datum_oszlop), Cells(37, Akt_datum_oszlop)).Value = .Sheets("KEZELŐ").Range(Cells(2, 20), Cells(35, 20)).Value ' MBO KPI
    End With
    MsgBox ("KÉSZ")
  'Ha szükséges, akkor vissza aktíválhatod a
  .Sheets("KEZELŐ").Activate sorral az End With előtt a kezelő munkalapot. De magához az értékek kiolvasásához nem kell aktívnak lennie.
  Üdv.

• #51278 Delila_1 veterán föccer #51277

  Új Válasz 2023-08-08 09:31:41 #51278

  Ú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 föccer #51277 üzenetére

  füzet(innen).lap(innen).Range("T2:T35").Copy füzet(ide).lap(ide).Cells(4,akt_datum_oszlop)

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