Въпрос за Макро скрипт в Ексел

[Novakov]

Здравейте,

имам следния макро скрипт, които проверява дали егн-то в "I2" дали отговаря на някои от егн-тата от "B1 до B9999" и ако отговаря, попълва данните от "I1 I5 I9 I8" в съответните полета (3, 1, 4, 5).

Sub SaveDanni() 
egn = Range("I2").Value 
On Error GoTo krai 
rez = Application.WorksheetFunction.Match(egn, Range("B1:B9999"), 0) 
Cells(rez, 3).Value = Range("I1").Value 
Cells(rez, 1).Value = Range("I5").Value 
Cells(rez, 4).Value = Range("I9").Value 
Cells(rez, 5).Value = Range("I8").Value 
End 
krai: MsgBox "Íÿìà òàêîâà ÅÃÍ" 

End Sub

Въпроса ми е с коя команда мога да изчистя полетата "I1 I5 I9 I8" след като са се записали в "3,1,4,5" и ако е възможно това да стане с натискането на същия бутон "SaveDanni()"

т.е. След натискането на "Запази данните" да ги запази в новите полета и да ги изтрие от старите.

пп. Пробвах по този начин и стана, но има ли възможност да CUT-ва само VALUE-то - без цялото оформление на полето (чертички, цветове):

Sub SaveDanni()
egn = Range("I2").Value
On Error GoTo krai
rez = Application.WorksheetFunction.Match(egn, Range("B1:B9999"), 0)

Range("I1").Cut (Cells(rez, 3))
Range("I5").Cut (Cells(rez, 1))
Range("I9").Cut (Cells(rez, 4))
Range("I8").Cut (Cells(rez, 5))

Application.CutCopyMode = False

End
krai: MsgBox "Няма такова ЕГН"

End Sub

Благодарим на отзовалите се 🙂

 

[ник]

Re: Въпрос за Макро скрипт в Ексел

Range("I1").Value = ""
Range("I5").Value = ""
Range("I9").Value = ""
Range("I8").Value = ""