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

• #31148 Nowitzki csendes tag YAN0U #31147

  Új Válasz 2016-03-27 21:25:42 #31148

  Ú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

  

  Nowitzki

  csendes tag

  válasz YAN0U #31147 üzenetére

  Üdv,

  Próbáld meg ezt:
  Sub NullakTorlese()
  Dim Rng(1 To 3) As String
  Rng(1) = "C"
  Rng(2) = "G"
  Rng(3) = "K"
  For i = 1 To 3
  For j = 1 To 22
  If Cells(j, Rng(i)) = 0 Then
  Cells(j, Rng(i)).ClearContents
  End If
  Next j
  Next i
  End Sub

• #31021 Fferi50 Topikgazda YAN0U #31020

  Új Válasz 2016-03-15 13:42:14 #31021

  Ú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 YAN0U #31020 üzenetére

  Szia!

  Így nem próbáltad még?
  ActiveSheet.Range("A1 : C25").Value = Workbooks("Terv_HWP_" & Format(Date, "yyyy_mm_dd" & ".xlsm")).Sheets("terv").Range("A1 : C25").Value

  Üdv.

• #31017 Fferi50 Topikgazda YAN0U #31014

  Új Válasz 2016-03-15 12:05:11 #31017

  Ú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 YAN0U #31014 üzenetére

  Szia!

  Szerintem ne a Windows hanem a Workbooks objektumot használd lsz:
  Workbooks("Terv_HWP_" & Format(Date, "yyyy_mm_dd" & ".xlsm")).Activate , mivel az ablak neve nem biztos, hogy ugyanaz...
  De írtam a hozzászólásban, hogy nem kell aktiválni a korábban megnyitott fájlt. Ide írom ismét a képletet, egy picit javítani kellett rajta:
  Activesheet.Range("A1:C25").Value=Workbooks("Terv_HWP_" & Format(Date,"yyyy_mm_dd" & ".xlsm").Sheets(1).Range("A1:C25").Value

  A Sheets(1) helyett azt a munkalapot írd be, ahol az adatok találhatóak.

  Üdv.

• #31005 Fferi50 Topikgazda YAN0U #31004

  Új Válasz 2016-03-14 17:05:35 #31005

  Ú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 YAN0U #31004 üzenetére

  Szia!

  A fájlnevet megadhatod így:
  Windows("Terv_HWP_" & Format(date,"yyyy_mm_dd" & ".xlsm").Activate

  De magát a másolást is egyszerűbben tudod megtenni:
  Workbooks("Terv.xlsx").Sheets("Terv").Range("A1:C25").Value=Workbooks("Terv_HWP_" & Format(Date,"yyyy_mm_dd" & ".xlsm").Sheets("Tény").Range("A1:C25").Value

  Mivel a Terv nevű fájlt utoljára nyitod meg, ha csak egy munkalapja van, akkor elég az
  Activesheet.Range("A1:C25").Value=Workbooks("Terv_HWP_" & Format(Date,"yyyy_mm_dd" & ".xlsm").Range("A1:C25").Value

  tekintettel arra, hogy megnyitás után az lesz az aktív munkalap.

  Nem kell ide-oda ugrálni a két munkafüzet között. Figyelj rá, hogy a kódban a workbooks - worksheets forma van és nem a windows!

  Üdv.

• #30868 the radish senior tag YAN0U #30866

  Új Válasz 2016-03-06 14:20:07 #30868

  Ú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

  

  the radish

  senior tag

  válasz YAN0U #30866 üzenetére

  Próbáltam már ezzel is, de sajnos nem megy, löki az összes oldalt.

  From:="3", To:="3", Copies:=1

  Kutakodva a neten sem találok megoldást, pl. ITT sem volt.

  Attól még várok ötletet, hátha.

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