Если B2 = B5, B5 стирается поднимаемся на B4

@otlov · Регистрация: 02.12.2013

Author24 — интернет-сервис помощи студентам

Привет всем
Нужна помощь в не большой проге в экселе с vba, вносим номер "partNumber" B4 ,vlookup на B2 возвращает номер места куда положить"put to id" , еще один vlookup на C4 возвращает название детали "description"
Вносим подтверждение номера места на B5 ( сканируется barcode )
Если B2 = B5 , B5 стирается поднимаемся на B4 тоже стираем , теперь можно ввести новый "partNumber"

Я в vba новичок так что как смог , вот что получилось :

Visual Basic

 If Range("B2").Value = Range("B5").Value Then
    
    Range("B5").Select
    Selection.ClearContents
    Range("B4").Select
    Selection.ClearContents
    
    Else
    
    End If
    
    
End Sub

1.Проблема что вылетает ошибка mismatch из за того что я сравнивают текст B5 с функцией на B2 , если меняю временно B2 на текстовое значение все работает .

2. Если получится хотел бы еще писать LOG в третей закладке
Число , partNumber , номер ID

P.s : Файл .xls присоединен,

Заранее Спасибо

@otlov · 03.12.2013, 12:29 **[ТС]**

забыл прикрепить эксель

@Hugo121 · 03.12.2013, 12:51

Ошибка выскакивает потому, что формула возвращает ошибку - переделайте формулу, чтоб в случае отсутствия данных возвращала значение или ничего.
Ну и нужно временно отключать события, чтоб в момент .Select этот макрос не срабатывал.
Хотя можно (и нужно) всё делать вообще без выделения.

Добавлено через 8 минут

Visual Basic

Формула:
 
=IF(ISNA(VLOOKUP(B4,logical!A:C,2,0)),"нет",VLOOKUP(B4,logical!A:C,2,0))
 
код:
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Range("B2").Value = Range("B5").Value Then Range("B4:B5").ClearContents
 
End Sub

@otlov · 03.12.2013, 13:24 **[ТС]**

Сообщение от Hugo121

Ошибка выскакивает потому, что формула возвращает ошибку - переделайте формулу, чтоб в случае отсутствия данных возвращала значение или ничего.

Спасибо , да это работает
Но мне надо чтоб выделение вернулось на "B4" после range("B4:B5").clearcontents

А второй вопрос как добавить в код копировать данные в закладку log
При каждом введении данных?

@Hugo121 · 03.12.2013, 14:02

Так что ли нужно?

Visual Basic

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim il As Long
 
    If Range("B2").Value = Range("B5").Value Then
        With Sheets("LOG")
            il = .Cells(.Rows.Count, "A").End(xlUp)(2).Row
            .Cells(il, 1) = Now()
            .Cells(il, 2) = Range("B4").Value
            .Cells(il, 3) = Range("B2").Value
        End With
        Range("B4:B5").ClearContents
        Range("B4").Select
    End If
End Sub

@otlov · 03.12.2013, 17:01 **[ТС]**

Сообщение от Hugo121

Так что ли нужно?

Спасибо огромное - очень выручил ...
Все работает , точно как задумалось ...

@otlov 0 / 0 / 0 Регистрация: 02.12.2013 Сообщений: 4
	03.12.2013, 13:24 [ТС]	4
	Сообщение от Hugo121 Ошибка выскакивает потому, что формула возвращает ошибку - переделайте формулу, чтоб в случае отсутствия данных возвращала значение или ничего. Спасибо , да это работает Но мне надо чтоб выделение вернулось на "B4" после range("B4:B5").clearcontents А второй вопрос как добавить в код копировать данные в закладку log При каждом введении данных? 0

@otlov 0 / 0 / 0 Регистрация: 02.12.2013 Сообщений: 4
	03.12.2013, 17:01 [ТС]	6
	Сообщение от Hugo121 Так что ли нужно? Спасибо огромное - очень выручил ... Все работает , точно как задумалось ... 0