Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Conectare tableta X220la Tv

Femeile tinere nu mai vor sa munc...

La mulți ani @un_dac!

La multi ani de Sfantul Gheorghe&...
 Job - Facultate sau certificare

Deadpool & Wolverine (2023)

sistem hibrid eoliana + panouri +...

Outlook e muta pe Android
 Constructie Mun. Iasi. Casa P+1.

Cum mai rezolvati cu chiriasii ra...

Tastatura si mouse cu baterie int...

AC Gree duce la palpait de becuri
 Sfat / recomandare construire aco...

Cablu analog vs digital

Ce valoare stabiliti la RSSI la u...

Sony FH 10W reparatie
 

Jump cell (probabil cu offset)

- - - - -
  • Please log in to reply
2 replies to this topic

#1
Ursul_Polar

Ursul_Polar

    call boy - 9000 jpy\s

  • Grup: Senior Members
  • Posts: 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
  • Posts: 40,601
  • Î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

Edited by neagu_laurentiu, 24 May 2012 - 11:49.


#3
Ursul_Polar

Ursul_Polar

    call boy - 9000 jpy\s

  • Grup: Senior Members
  • Posts: 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.

Edited by Ursul_Polar, 25 May 2012 - 13:19.


Anunturi

Bun venit pe Forumul Softpedia!

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

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