Здравейте
Имам следния проблем който не мога да го измисля:
В таблица при въвеждане на съдържание в клетка от клавиатурата или пейст от някъде (когато съдържанието и вече е <>"") тя автоматично да се форматира (бордерите шрифта подравняване аутофит и т.н.).
Вмъкнах кода в процедурите
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Private Sub Worksheet_Change(ByVal Target As Range)
Не ми свърши работа защото променят клетката която избирам а не тази която преди е била избрана.
Дано правилно съм обяснил...
Благодаря :)

Нямах много време да разгледам това което искаш, но пробвай това дали ще ти свърши някаква работа или поне насока на къде да гледаш, проблема е, че не винаги става, номера се получава само когато обоче се извърши някакво пресмятане


Private Sub Worksheet_Calculate()
Dim Cell As Range
Dim Rng As Range
Set Rng = Range("A1:G20")
Set Cell = Selection



If Not Intersect(Cell, Rng) Then

If Cell.Offset(-1, 0).Value <> "" Then Cell.Offset(-1, 0).Interior.ColorIndex = 6
Else
End If


End Sub

Съдържаниет е скрито
Влезте за да го видите

мерси много за отговора alexoff
разбрах ти идеята
обаче не исках съвсем това
Просто искам да знам след като селектирам дадена клетка коя е била предишната селектирана клетка координатите някъде помнят ли и се или трябва да го запомня това в някаква променлива или масив

Може би ти трябва това:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.<е_което_ти_трябва> Then Target.Interior.<каквото_ти_трябва>

End Sub

нищо не разбрах NDeu
все пак мерси

В отговор на:

---

В таблица при въвеждане на съдържание в клетка от клавиатурата или пейст от някъде (когато съдържанието и вече е <>"") тя автоматично да се форматира (бордерите шрифта подравняване аутофит и т.н.).

---

Private Sub Worksheet_Change(ByVal Target As Range)



If Target.Column>1 and Target.Column<6 and Target.Row>1 and Target.Row<9 Then Target.Interior.ColorIndex = 6



End Sub

Много ти благодаря работи отлично
Не знам защо не се получи сутринта при мен така та до сега го правех по доста по сложен метод