Gửi bởi
ncpvn001
Chào các anh chị!
Mình có sưu tầm và làm 1 file excel nhập data và xuất file ra thành 1 sheet với tên sheet là giá trị của ô A3 trong sheet NHAP nhưng mình muồn khi nhỡ tay nhấn 2 lần vào nút TẠO SHEET thì sẽ hiện lên thông báo "Kiểm tra lại!" và ngăn không cho tạo sheet khi đó và chuyển con trỏ vào ô A3 của sheet NHAP
Mình xin gửi file đính kèm ở dưới!
b thay đổi code 1 chút là đc. Lưu ý phần bôi đỏ, nếu chạy code này thì shapes sẽ bị xóa nhé nên để shape ở ngoài mấy cột này
Mã:
Sub Oval3_Click()
Dim sh As Worksheet, trung As Boolean
Sheets("NHAP").Select
For Each sh In ThisWorkbook.Worksheets
If sh.Name = Range("A3").Value Then trung = True
Next
If trung = False Then
Sheets("NHAP").Copy After:=Sheets("NHAP")
ActiveSheet.Name = Range("A3").Value
Else
MsgBox ("Da ton tai sheet with name: " & Range("A3").Value)
End If
ActiveSheet.Unprotect
Columns("I:M").Select
Selection.Delete
ActiveSheet.Protect
Sheets("NHAP").Select
Range("A3").Select
End Sub