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

• #51090 Fferi50 Topikgazda joocek #51089

  Új Válasz 2023-06-25 08:13:42 #51090

  Ú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 joocek #51089 üzenetére

  Szia!
  Akkor nincs más hátra, mint makró.
  Ezt a két makrót másold be egy modulba, javítsd át a megfelelő helyeken. A hivo makróban megadhatod, melyik cellából másolja az adatot és hol kezdje a cél munkafüzetben a beírást. Ezáltal több cellát is másolhatsz a hivo makró paramétereinek változtatásával.
  Sub hivo()
beirja "A3", "A1" 'A3 cellából az A1 cellától lefelé fog másolni. Ezt kell átírnod a megfelelő címekre.
End Sub
Sub beirja(ByVal honnan As String, ByVal hova As String)
Dim sh1 As Worksheet, sh2 As Worksheet, celja As Range
Set sh1 = Worksheets("S51") 'S51 helyébe írd a cél munkafüzet nevét
Set celja = sh1.Range(hova)
For Each sh2 In Worksheets
    If sh2.Name <> sh1.Name Then
       celja.Value = sh2.Range(honnan)
       Set celja = celja.Offset(1, 0)
    End If
Next
End Sub
  A munkafüzetet makróbarátként vagy binárisként kell mentened.
  Üdv.
  Ps. Létezik még az Excelben az Adatok - összesítés menüpont, ahol megfelelően struktúrált munkalapok adatai egy munklapra összesíthetők. Talán azt is érdemes lenne megnézned.

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