vba not working

[sna]

Hi there

i need your help how to check why my code not working for edit and search vba

Please kindly find the attached

thanks

[snasui]

Please provide all steps for testing, what value in each cell and what button has error and what the result if don't any error. You should post the picture of error for easy for verifying.

[sna]

Hi
It does not show up error.I search by ID if I type 1 it shows the data when click button search and amend data click edit it edit in sheet database but when I type 2 in ID (C5) it doesn't show anything when click search or edit.

Thanks

[snasui]

You can adjust that code as below.

Code: Select all

'Other code
For n = 2 To x + 1

    If Sheet2.Range("a" & n) = Sheet1.Range("c5") Then
         Sheet1.Range("c7") = Sheet2.Range("b" & n)
         Sheet1.Range("c9") = Sheet2.Range("c" & n)
         Sheet1.Range("c11") = Sheet2.Range("d" & n)
         Sheet1.Range("f5") = Sheet2.Range("e" & n)
         Sheet1.Range("f7") = Sheet2.Range("f" & n)
         Exit For
    End If

Next n
'Other code

[sna]

thanks but i have another issue for adding new record.it is not working for duplicate adding

Code: Select all

x = Sheet2.Range("a:a").Count
n = Sheet2.Range("a" & x).End(xlUp).Row + 1

For i = 1 To n
    If Sheet2.Range("a" & n) = Sheet2.Range("a" & i) Then
    Sheet2.Range("a" & n & "f:" & n).ClearContents
    MsgBox "ID dup"
    Exit Sub

tks

[snasui]

Adjust your code as below.

Code: Select all

'Other code
If Application.CountIfs(Sheet2.Range("a2:a" & n), _
    Sheet1.Range("c5").Value) Then
        MsgBox "ID dup"
    Exit Sub
End If

For i = 1 To n
'    If Sheet2.Range("a" & n) = Sheet2.Range("a" & i) Then
'    Sheet2.Range("a" & n & "f:" & n).ClearContents
'    MsgBox "ID dup"
'    Exit Sub

'Else

    Sheet2.Range("a" & n) = Sheet1.Range("c5")
    Sheet2.Range("b" & n) = Sheet1.Range("c7")
    Sheet2.Range("c" & n) = Sheet1.Range("c9")
    Sheet2.Range("d" & n) = Sheet1.Range("c11")
    Sheet2.Range("e" & n) = Sheet1.Range("f5")
    Sheet2.Range("f" & n) = Sheet1.Range("f7")
'    End If
Next i
'Other code

[sna]

thanks.it is so helpful