Здравейте,
имам следния макро скрипт, които проверява дали егн-то в "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()"
т.е. След натискането на "Запази данните" да ги запази в новите полета и да ги изтрие от старите.
имам следния макро скрипт, които проверява дали егн-то в "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()"
т.е. След натискането на "Запази данните" да ги запази в новите полета и да ги изтрие от старите.