Snasui Excel Forum

ลองดูครับ
If TextBox1.Text = "" Or TextBox2.Text = "" Then
UserForm2.Show
Else
Do
Dim b As String
r = r + 1
c = r - 1
b = TextBox1.Text
If Application.WorksheetFunction.CountIf(Range("B2:B100"), b) > 0 Then
UserForm3.Show
Exit Sub
End If
Loop Until Cells(r, 2) = ""
'...Other Code ...

logic wrote: Fri Mar 25, 2022 11:05 am อาจารยไม่ให้แนบไฟล์จริงอ่านกฎข้างบนประกอบ ทำไฟล์เลียนแบบแนบมาแทนครับ

ขอบคุณมากครับ ก่อนโพสต์ผมได้อ่านกฎเรียบร้อยแล้วครับ ที่ข้อมูลมันเยอะเพราะว่าไม่ได้ลบrowเปล่าที่ไม่ได้ใช้ครับ

แนบไฟล์ให้แล้วครับ

สวัสดีครับ ตั้งใจจะทำให้ตอนกด cmd button2 แล้วถ้าชื่อSheetซ้ำกันจะขึ้นหน้าต่างบอกว่างานซ้ำครับ ไม่สามารถเพิ่มได้จนกว่าจะเปลี่ยนชื่อใหม่ครับ Private Sub CommandButton2_Click()

' TotalSheets = ThisWorkbook.Worksheets.Count
'For i = 1 To TotalSheets
'If ThisWorkbook.Worksheets(i).Name = TextBox1 ...

snasui wrote: Mon Mar 14, 2022 6:07 pm ตัวอย่างการปรับสูตรครับ

=HYPERLINK("#'"&N1&"'!A1",VLOOKUP(N1,B:D,3,0))

ขอบคุณมากๆครับอาจารย์

สวัสดีครับอาจารย์ จากปัญหาครั้งก่อนในการสร้างhyperlinkโดยใช้vbaสามารถแก้ได้แล้ว
ในรอบนี้ผมพยายามทำsearch box โดยการใช้=HYPERLINK(VLOOKUP(N1,B:D,3,0)) โดยสามารถค้นหาcellที่ต้องการได้ แต่ไม่สามารถเปิดไปยังlinkปลายทางได้ครับ
ไม่ทราบว่าปัญหาเกิดจากโค้ดหรือตรงไหน หรือถ้ามีวิธีที่ดีกว่าช่วยแนะนำทีครับ ...

:D ตัวอย่างการปรับ Code ครับ


Private Sub CommandButton2_Click()
Dim b As String
Do
r = r + 1
b = TextBox1.Text
Loop Until Cells(r, 1) = ""
Cells(r, 1) = b
Sheets("template").Copy After:=Worksheets("sheet1")
ActiveSheet.Name = b

With Sheets("sheet1")
.Hyperlinks.add Anchor:=.Cells(r ...

snasui wrote: Fri Mar 11, 2022 8:48 pm กรุณาแนบไฟล์ Excel มาด้วยจะได้ช่วยทดสอบได้ครับ

ผมได้แนบไฟล์ให้แล้วครับ ขอบคุณอาจารย์สันติพงศ์ล่วงหน้าครับ

ขอคำแนะนำ ทำuserformกรอกข้อมูล แล้วสร้างชีทใหม่พร้อมhyperlinkไปยังชีทที่สร้างทีครับ
ลองทำตามyoutube ตอนนี้เหลือแค่ทำhyperlinkไปยังชีทครับ

Private Sub CommandButton2_Click()

Do
Dim b As String
r = r + 1
b = TextBox1.Text
Loop Until Cells(r, 1) = ""
Cells(r, 1) = b
Sheets("template").Copy After ...