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

• #12419 Delila_1 veterán kissgy04 #12418

  Új Válasz 2011-12-31 14:20:37 #12419

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

  Nincs mit.

  [BÚÉK minden kedves ide látogatónak!]

• #12417 Delila_1 veterán kissgy04 #12416

  Új Válasz 2011-12-31 14:13:33 #12417

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

  =INDEX(A:B;HOL.VAN(MAX(B:B);B:B;0);1)

• #7618 Delila_1 veterán kissgy04 #7617

  Új Válasz 2010-07-15 09:53:37 #7618

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

  Melyik lesz jó, a D oszlop adatainak 1 cellába, vagy cellánként 1 oszlopba történő kigyűjtése?

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