Ú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.

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