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

• #49892 lappy őstag luckyboi82 #49891

  Új Válasz 2022-11-09 18:31:50 #49892

  Ú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

  

  lappy

  őstag

  válasz luckyboi82 #49891 üzenetére

  A szürke szöveg maradhat, de törölhető is
  E3 ahol az osztò van ezt akárhová teheted a munkalapon
  A worksheet neve az a munkalap amin átváltász
  A tartományt a b2:b6 nal tudod átírni
  A makro átírja a munkalapon belül megadott tartomany összes numerikus adatait ha kell az eredeti akkor másolatot kell készíteni

• #49890 lappy őstag luckyboi82 #49889

  Új Válasz 2022-11-09 15:46:54 #49890

  Ú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

  

  lappy

  őstag

  válasz luckyboi82 #49889 üzenetére

  ezzel lehet osztani az összes számot ami az adott tartományban van
  Az E3 itt a váltószám

  Sub Divide_a_range_of_cells_by_same_number()
'declare variables
Dim ws As Worksheet
Dim rng As Range
Dim myVal As Range
Set ws = Worksheets("Munka1")
Set rng = ws.Range("B2:B6")
For Each myVal In rng
myVal = myVal.Value / ws.Range("E3") ' ide lehet tenni * is akkor visszavált
Next myVal

End Sub

• #12840 Delila_1 veterán luckyboi82 #12838

  Új Válasz 2012-02-07 13:30:27 #12840

  Ú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 luckyboi82 #12838 üzenetére

  Félreértettem, azt hittem, más füzetekből csatolsz adatokat.

  Sub HipAtcimez()
  Dim CV As Hyperlink
  For Each CV In ActiveSheet.Hyperlinks
  CV.Address = Application.WorksheetFunction.Substitute(h.Address, "Z:\", "C:\")
  Next
  End Sub

  A "Z:\" és a "C:\" helyett a teljes útvonalakat írd be. A cellákban a megjelenő szöveg változatlan marad, de az új útvonalról hívja be a linket.

• #12830 Delila_1 veterán luckyboi82 #12828

  Új Válasz 2012-02-06 17:44:52 #12830

  Ú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 luckyboi82 #12828 üzenetére

  A Csere (Ctrl+h) funkcióval egyszerre le tudod cserélni a Z:\-t C:\-re, vagy a Csatolás-nál átváltod a forrást. Ez utóbbinak a módjára találsz itt a fórumon néhány hozzászólást, ha a csatolás szóra keresel.

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