Dấu khác trong vba

[Bài học đắt giá]

Mình có đoạn code dưới đây, mục đích mình muốn tên tháng và dữ liệu trong ô "A4" trùng nhau, nếu không trùng nhau thì sẽ báo lỗi không phù hợp và không hiện tháng tiếp theo, nếu trùng nhau thì tạo tháng mới. Mình có viết dòng code màu xanh để thực hiện lệnh trên, nhưng nó báo lỗi luôn dù đã thoả mãn điều kiện trùng nhau. Mọi người giúp với. Cảm ơn mọi người nhiều.

Sub taothangmoi() Dim Thang As String Thang = Sheets(Sheets.Count).Name If Right(Thang, Len(Thang) - 5) >= 12 Then MsgBox "toi da 12 thang" Exit Sub End If If Right(Thang, Len(Thang) - 5) + 1 <> "A4" + 1 Then MsgBox "Thang khong phu hop" Exit Sub End If ActiveSheet.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = "Tháng " & Right(Thang, Len(Thang) - 5) + 1 Range("A4") = Right(Thang, Len(Thang) - 5) + 1 Range("C13:BL34").ClearContents For i = 59 To 64 If Day(Cells(10, i).Value) < 28 Then Cells(10, i).EntireColumn.Hidden = True End If Next End Sub

 

[BuiQuangThuan]

giải thích rõ hơn xíu được không? Chưa hiểu ý của bạn lắm

 

[befaint]

If Right(Thang, Len(Thang) - 5) + 1 <> "A4" + 1 Then

If Right(Thang, Len(Thang) - 5) + 1 <> ActiveSheet.Range("A4").value2 + 1 Then

 

[Bài học đắt giá]

If Right(Thang, Len(Thang) - 5) + 1 <> ActiveSheet.Range("A4").value2 + 1 Then

cảm ơn bạn nhiều nhé.

Bài đã được tự động gộp: 7/12/21

giải thích rõ hơn xíu được không? Chưa hiểu ý của bạn lắm

ý mình muốn viết điều kiện để khi tạo sheet mới thì tên sheet và dữ liệu trong ô A4 trùng nhau, nếu khác nhau thì báo lỗi không phù hợp đó bạn.

 

[BuiQuangThuan]

ý mình muốn viết điều kiện để khi tạo sheet mới thì tên sheet và dữ liệu trong ô A4 trùng nhau, nếu khác nhau thì báo lỗi không phù hợp đó bạn.

Ừ. Bài #3 đã trả lời bạn rồi. Không biết đúng ý bạn chưa

 

[Bài học đắt giá]

Ừ. Bài #3 đã trả lời bạn rồi. Không biết đúng ý bạn chưa

Đúng rồi nhé. Cảm ơn bạn đã quan tâm! Hẹn những bài post sau.