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

• #13556 ThaBoss senior tag

  Új Válasz 2012-04-24 13:40:00 #13556

  Ú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

  

  ThaBoss

  senior tag

  Sziasztok!

  Visszatértem egy kis segítséget kérni! Volt nemrég ez a gondom: [link], amit Delila_1 segítségével sikerült megoldani. Azóta is tökéletesen üzemel a makró:

  Sub Valami()
  Dim sor%, sor1%, WS1 As Worksheet, WS2 As Worksheet
  Set WS1 = Sheets(1)
  Set WS2 = Sheets(2)

  sor% = 2: sor1% = 2
  WS2.Cells(sor1%, "A") = WS1.Cells(sor%, "A")
  WS2.Cells(sor1%, "B") = WS1.Cells(sor%, "A")

  Do While WS1.Cells(sor%, "A") <> ""
  If WS2.Cells(sor1%, "A") < WS1.Cells(sor%, "B") Then
  WS2.Cells(sor1% + 1, "A") = WS2.Cells(sor1%, "A") + 1
  WS2.Cells(sor1% + 1, "B") = WS2.Cells(sor1%, "A") + 1
  sor1% = sor1% + 1
  Else
  sor1% = sor1% + 1: sor% = sor% + 1
  WS2.Cells(sor1%, "A") = WS1.Cells(sor%, "A")
  WS2.Cells(sor1%, "B") = WS1.Cells(sor%, "A")
  End If
  Loop
  End Sub

  Szeretnék beiktatni egy C és D oszlopot is. A és B változatlanul maradna és a makró feladata is. Viszont minden sor C és D oszlopában szerepelne valami információ szöveg vagy képlet (sima számítás pl: =2*1000+3*500+100). Ezeket pedig szeretném kilistázni minden egyes sorba a második fülre az eredmény (azaz A és B oszlop cellái) után úgy, hogy csak addig írja ki ezeket, amíg az első lap A és B tartománya tart.
  Kissé bonyolult így de adok képet is hozzá! Tehát így néz ki a táblám első füle:

  

  és azt szeretném, ha a fenti makró valami ilyet csinálna belőle:

  

  Előre is köszi!

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