Salt la conținut

SUBIECTE NOI
« 1 / 5 »
RSS
Manere clasice mobila sau push to...

Contact pe piele cu sangele altei...

metoda constantelor de scurtcircuit

video file info
 Nu pot raspunde: Huawei P10

Cod cursor website

Cum se iese la pensie la munca di...

Inlocuire Tranzistor 4410 BA622T ...
 CASS pe veniturile din DOBANZI

Masina de spalat rufe Bosch

Spatiu prea mare inainte de titlu

Recomandare banca pentru firma
 Photoscape, unde?

Prima World HD

Recomandare bicicleta MTB copil 1...

Cum pot reda niște inregistr...
 

Jump cell (probabil cu offset)

- - - - -
  • Vă rugăm să vă autentificați pentru a răspunde
2 răspunsuri în acest subiect

#1
Ursul_Polar

Ursul_Polar

    call boy - 9000 jpy\s

  • Grup: Senior Members
  • Mesaje: 9.208
  • Înscris: 31.07.2006
Buna ziua,

Imi bat mintile de ceva vreme cu o problema.

Se da un Excel in care ar trebui bagate valori in coloanele B si C cursiv, urmand completarea cu alte informatii in coloanele D si E a fi facuta ulterior.

Informatiile din B si C se introduc B1-C1, B2-C2, B3-C3, etc.

Dupa introducerea unei valori in casuta din coloana C as vrea sa coboare un rand si sa se mute in coloana B selectia celulei, adica, daca am ajuns sa inroduc informatia in casuta C3 sa se mute selectia in B4.

M-ar multumi si o sugestie referitor la un manual de citit din care sa pricep cum sa folosesc corect un cod VBA. Nu sunt programator, da' nu mi-e frica sa incerc necunoscutul.

Multumesc.

#2
neagu_laurentiu

neagu_laurentiu

    Guru Member

  • Grup: Senior Members
  • Mesaje: 40.639
  • Înscris: 30.07.2003
Poti automatiza Excel-ul sa faca ca vrei tu insa ai un pic de studiat:
http://msdn.microsof...office.12).aspx

Editat de neagu_laurentiu, 24 mai 2012 - 11:49.


#3
Ursul_Polar

Ursul_Polar

    call boy - 9000 jpy\s

  • Grup: Senior Members
  • Mesaje: 9.208
  • Înscris: 31.07.2006
Am rezolvat, in cele din urma, cu o solutie care n-ar fi cea mai straluicta sau eleganta, dar functioneaza.

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

If Target.Row > 1 And Target.Column = 4 Then
	ActiveCell.Offset(1, -2).Select
	End If

End Sub

Multumesc.

Editat de Ursul_Polar, 25 mai 2012 - 13:19.


Anunturi

Bun venit pe Forumul Softpedia!

Utilizatori activi: 1

0 membri, 1 vizitatori, 0 utilizatori anonimi

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate