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

• #7616 Delila_1 veterán kissgy04 #7614

  Új Válasz 2010-07-15 09:32:28 #7616

  Ú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

  A D oszlop módosított adatai a "látvány" szerint egy sorban vannak. Ha soronként akarod a v.-t az egyes cellák mellé tenni, és a teljes módosított oszlopot szerepeltetnéd a Word-ben, ilyen legyen a makró:

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

  Ezután kijelölöd az N oszlop adatait, és áthúzod a Wordbe. Az Excelben változatlan marad a D oszlop.

• #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