Excel'de geçerli hücrenin yanında bir hücre seçme


1

Excel'de boş hücrelerin değerini "NO DATA" olarak değiştiren küçük bir vba yapıyorum. Şimdiye kadar yaptığım şey bu:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo hell:
Application.Goto reference:="DBtable"
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.SpecialCells(xlCellTypeBlanks).Value = "NO DATA"

'I DON'T KNOW WHAT TO PUT HERE

hell:
End Sub

Ne olacağını söylemek isterim ki, ne zaman masaya yeni bir kayıt eklesem ve boş bir hücre içeriyorsa, hemen "NO DATA" değeriyle değiştirilmeli ve sonra seçim en sondaki hücrede yapılmalı. değiştirdiğim hücre. Şu an olan şey, boş hücreyi istediğim değere değiştirdikten sonra tüm tabloyu seçmesidir. Lütfen bana yardım et!

Yanıtlar:


0

Range.OffsetSeçimi taşımak için kullanabilirsiniz , ayrıca geçerli kodunuzu da geliştirebilirsiniz (şu anda sadece yeni kayıt için değil, boş hücreler için tüm tabloyu arar.

Geliştirilmiş kod:

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error GoTo Hell

    ' whenever I add a new record on my table and it contains a blank cell, 
    ' it should be changed immediately with the "NO DATA" value:
    Intersect(Target.EntireRow, Range("DBTAble")).SpecialCells(xlCellTypeBlanks).Value _ 
         = "NO DATA"

    '  then the selection should be on the next cell of the last cell I modified:
    Target.Offset(0, 1).Activate

    Exit Sub    

Hell:
    Err.Clear
End Sub

Juhasz, çok teşekkür ederim! Sen bir hayat kurtarıcısın.
Kelvs
Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.