VB script segítség

VB script segítség
2007-02-23T11:55:24+01:00
2007-02-26T19:14:45+01:00
2022-11-03T13:15:40+01:00
Headoff
Sziasztok!

Írtam egy vb scriptet excel alá, de nem tudom működére bírni. Elég kezdő vagyok ezen a területen. Azt szeretném elérni, ha a megfelelő értékeket megtalálja, akkor azt írja egy másik táblába. Eddig jutottam:
Sub Szamol() Dim sorok As Integer Dim col As Integer Dim parag As String Dim szamlalo As Integer Dim oszlop As Integer sorok = 16459 col = 1 parag = "" Windows("TOMI-excel.txt").Activate Sheets("TOMI-excel").Select Sheets("TOMI-excel").Activate For szamlalo = 1 To sorok If ActiveSheet.Cells(1, szamlalo).Value = "Kbt" Then For oszlop = 1 To 3 Range(1, szamlalo).Select Application.CutCopyMode = False Selection.Copy Windows("osszesit.xls").Activate ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlNormal Range(oszlop, sorok).Select ActiveSheet.Paste Windows("TOMI-excel.txt").Activate Next End If Next End Sub

Tud valaki segíteni?
Mutasd a teljes hozzászólást!
Tud Enyém a pont?

Szóval.
1. Az Activate, Select dolgokat el kéne felejteni, csak összezavarják az embert.
2. Munkafüzetek meghivatkozhatóak úgy, hogy Workbooks("munkafüzet_neve")
3. A belső for-t nem igazán értem, ott inkább Range(1, oszlop)-nak vagy Range(szamlalo, oszlop)-nak kéne szerepelnie.
4. Ha már Copy/Paste-tel teszed át az adatokat, akkor azt egy lépésben is megteheted, nem kell cellánként másolni (belső for szükségtelen).
5. Adatokat közvetlen értékadással is "mozgathatsz" 2 cella között, nem kell Copy/paste, pl.: Workbooks(1).Worksheets(1).Cells(1,1).Value=Workbooks(2).Worksheets(1).Cells(1,1).Value
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd