Va kaip tai veikia.
Beje, tam kad veiktų macros, reikia excel'yje nueiti Tools / Macro / Security ir nustatyti Low. Tada iš naujo pasileisti excel.
Maniau, kad išmanai daugiau. Nors ir turėsi jau veikiantį pvz, labai abejoju, kad pavyks pačiam pasidaryti ko nori. Rašiau kur patalpinti nurodytą kodą, o tu padėjai visai kitur ir dar procedūros viduryje Pabandykim dar kartą: mano nurodytas kodas yra įdėtas ne Module1, o Sheet1. Ten patekti gali dukart spustelėjęs pele ant kairėje viršuje VBA lango esančio lentelės pavadinimo Sheet1.
Sėkmės. proba.xls
Wertis tu genijus! aciu tau didziausias, lieku alaus skolingas, gal koki syki tikrai iseis atsidekoti kaip ne kaip Klaipedski gi. Na o del sheet kazkaip uzsiciklinau ir vis man vaidenosi kad niekur kitur o tik Modulius reik rasyti :)
Dekui dar syki, ledai tuoj pajudes.
A_Arvis rašė: Na gal dar biskuti klausimuks, gal kazka pakeitus eina kopinti ir ne tik i kitus sheetus nesokinejant i juos, nesinori to mirksejimo matyti
Range("A11").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("B12").Select
End Sub
po Sub ... įterpk tokią eilutę:
Application.ScreenUpdating = False
o prieš End Sub tokią:
Application.ScreenUpdating = True
Kaip padaryti, kad tempiant šliaužiklį į šoną lentelės pirmas stulpelis nejudėtų (visi po juo tarsi slepiasi), o tempiant į apačią nejudėtų viršutinė eilutė.
Tikiuosi supratot
ir vel reik helpo Kazkada lyg ir bandziau, bet nebepamenu ar yra formule kuri pazintu cele kaip su irasu ar be. Celeje gali buti ir skaicius ir tekstas arba nieko. Jei kas zinot padekit pls.
A_Arvis rašė: ir vel reik helpo Kazkada lyg ir bandziau, bet nebepamenu ar yra formule kuri pazintu cele kaip su irasu ar be. Celeje gali buti ir skaicius ir tekstas arba nieko. Jei kas zinot padekit pls.