Mefisto...diabeł czy anioł?
Hej wszytkim napisa³em sobie kod dodaj±cy mi linijki w okreslone przez uzytkownika miejsce...
Sub macro()
Dim a, b, c, d As Single
a = Val(InputBox("Please provide number of line - where you want to add new row:"))
b = Val(InputBox("How many rows you want to add:"))
d = a + b
Rows(a & ":" & d).Select
MsgBox a
Selection.Insert Shift:=xlDown
End Sub
problem tkwi w tym ¿e plik w ktorym chcê aby u¿ytkownik mia³ mo¿liwo¶æ dodawania linijek ma byæ plikiem u¿ywanym przez wiele osób czyli plikiem "share" dodatkowo musi byc zabezpieczony (czê¶æ danych)
*zabezpieczenie ³atwo omin±c dodaj±æ odpowiedni kod w makro zdejmuj±cy je na chwilkê gdy dodajesz linijkê
*natomiast z opcj± "share" nie wiem jak sobie poradziæ
z góry dziêkuje za wszytkie rady porady i pomoc ... :))
zanotowane.pl doc.pisz.pl pdf.pisz.pl katkaras.opx.pl
Sub macro()
Dim a, b, c, d As Single
a = Val(InputBox("Please provide number of line - where you want to add new row:"))
b = Val(InputBox("How many rows you want to add:"))
d = a + b
Rows(a & ":" & d).Select
MsgBox a
Selection.Insert Shift:=xlDown
End Sub
problem tkwi w tym ¿e plik w ktorym chcê aby u¿ytkownik mia³ mo¿liwo¶æ dodawania linijek ma byæ plikiem u¿ywanym przez wiele osób czyli plikiem "share" dodatkowo musi byc zabezpieczony (czê¶æ danych)
*zabezpieczenie ³atwo omin±c dodaj±æ odpowiedni kod w makro zdejmuj±cy je na chwilkê gdy dodajesz linijkê
*natomiast z opcj± "share" nie wiem jak sobie poradziæ
z góry dziêkuje za wszytkie rady porady i pomoc ... :))