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

• #7615 Delila_1 veterán kissgy04 #7614

  Új Válasz 2010-07-15 09:20:51 #7615

  Ú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 kissgy04 #7614 üzenetére

  Ez a kis makró megoldja a problémádat. A futtatása után az M1 cella tartalmát bemásolod a Wordbe.

  Sub Cella_mod()
  Dim sor As Integer
  
  For sor = 2 To ActiveSheet.UsedRange.Rows.Count
  Cells(sor, 2) = "sh03" & Cells(sor, 2)
  Cells(1, 13) = Cells(1, 13) & Cells(sor, 4) & " v. "
  Next
  End Sub

  A ciklust a 2. sortól indítottam, feltételezve, hogy az 1. címsor. Ha nem, a For sor=2 to...
  sorban a 2-t írd át 1-re.

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