Snasui Excel Forum

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

ข้อมูลจะวางในชีตลำดับที่ 3


Dim j As Integer, k As Integer
Dim c As Range, rng As Range
On Error Resume Next
Set rng = Sheets(2).Range("a6:a" & Sheets(2) _
.Range("a" & Rows.Count).End(xlUp).Row)
j = 5
For Each c In rng
With Sheets(3)
If k = 30 Then
j = j + 12
k = 0 ...

ขอบคุณค่ะอาจารย์

:D หมายถึงเมื่อวางข้อมูลไป 35 บรรทัดลแล้วให้เว้นว่าง 1 บรรทัดและเป็นเช่นนี้ไปเรื่อย ๆ หรือว่าต้องการให้เป็นแบบไหน กรุณาอธิบายพร้อมยกตัวอย่างประกอบจะได้เข้าใจตรงกันครับ

ค่ะ คือ ข้อมูลที่ขึ้นอยู่ตอนนี้มันขึ้นเป็นหน้าเดียวยาวๆจนหมดข้อมูล ตาม Sheeta(4) ค่ะ ข้อมูลมันเกินฟอร์มตารางที่วางไว้ค่ะ
คือ ...

กรณีที่ข้อมูลมีเยอะแต่ต้องการให้ข้อมูลหยุดอยู่ที่บรรทัดที่ 35 ค่ะ แล้วให้ข้อมูลที่เหลือขึ้นบรรทัดใหม่ตามที่ต้องการ VBA สามารถเขียนได้ไหมคะ พยายามลองหาข้อมูลเพื่อเขียนเเล้วเเต่ทำไม่ได้จริงๆ ช่วยเเนะนำเเนวทางได้ไหมคะ :cry: :cry: :cry: :cry:
Sub SReportRetriev()
Dim j As Integer
Dim l As Long
Dim ...

ขอบคุณค่ะ

ได้แก้ Code ตามที่เเนะนำเเล้วค่ะ Run ได้ค่ะ แต่พอทำอีกรอบมันไม่ขึ้น Cell ที่ต้องการค่ะแต่ไปขึ้นที่ Cell 41 แทน ลองใส่ j - 35 แล้ว แต่ค่า c กับไม่ทำซ้ำ
Sub ReportRetriev()
Dim j As Integer
Dim rng As Range

On Error Resume Next
Set rng = Sheets(2).Range("A1:A1000")
For Each c In rng
j ...

เอา Code มาเขียนใช้อีกอันหนึ่งแต่มันไม่ขึ้นค่ะ Run รอบบเเรกมันขึ้นที่เซลล์อื่นก็เลยลองแก้ พอ Run รอบสองไม่ขึ้นเลย
เป็นการผูกให้วันที่ ที่ Range("A:A") sheets(1) ตรงกับ Cells(3,9) sheets(4) เเล้วข้อมูลที่ต้องการจะขึ้นค่ะ
Sub ReportStorage()
Dim j As Integer
Dim rng As Range
On Error Resume ...

เอา Code มาเขียนใช้อีกอันหนึ่งแต่มันไม่ขึ้นค่ะ Run รอบบเเรกมันขึ้นที่เซลล์อื่นก็เลยลองแก้ พอ Run รอบสองไม่ขึ้นเลย
เป็นการผูกให้วันที่ ที่ Range("A:A") sheets(1) ตรงกับ Cells(3,9) sheets(4) เเล้วข้อมูลที่ต้องการจะขึ้นค่ะ
Sub ReportStorage()
Dim j As Integer
Dim rng As Range
On Error Resume Next ...

ขอโทษค่ะ ดูไม่ดีเองค่ะ

ตอนนี้ลองปรับ Code เเล้วนะคะ แต่มันขึ้นแค่ 2 ตัวค่ะ
Sub SearchBatch()
Dim j As Integer
Dim rng As Range
On Error Resume Next
Set rng = Sheets(1).Range("D5:D1728")
For Each c In rng
j = Sheets(2).Range("b" & Rows.Count).End(xlUp).Row + 1
If c.Value = Sheets(2).Cells(6, 10) Then
Sheets(2 ...

ขอบคุณค่ะ

เป็นอันนี้ค่ะที่นำมาปรับใช้ เเก้ไขล่าสุด เป็นข้อมูลของ Batch ค่ะ
Sub SearchBatch()
Dim i As Integer
Dim j As Integer
On Error Resume Next
'Other code
j = Sheets(2).Range("b" & Rows.Count).End(xlUp).Row + 1

i = Application.WorksheetFunction.Match(Sheets(2).Cells(6, 10), Sheets(1).Range("D5 ...

แก้ไขตามที่แนะนำแล้วค่ะ สามารถRunได้เรียบร้อย แต่ติด1ปัญหาค่ะ คือ เมื่อ Cell ที่เราป้อนข้อมูลสำหรับค้นหาเป็น Cell ว่าง (clear ออกเพื่อป้อนค่าใหม่) ทำให้มันBugค่ะ ไม่ทราบว่ามีวิธีแก้ไขไหมคะ

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "J4" Then
Call Searchbar ...

ใช้ได้แล้วค่ะ ขอบคุณมากเลยนะคะ

แก้ไขตามที่แนะนำแล้วค่ะ สามารถRunได้เรียบร้อย แต่ติด1ปัญหาค่ะ คือ เมื่อ Cell ที่เราป้อนข้อมูลสำหรับค้นหาเป็น Cell ว่าง (clear ออกเพื่อป้อนค่าใหม่) ทำให้มันBugค่ะ ไม่ทราบว่ามีวิธีแก้ไขไหมคะ

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "J4" Then
Call Searchbar ...

ต้องการค้นหาข้อมูลที่ตรงกันค่ะ คือ เซลล์ J4 ตรงกับ ( C5:CXXXX) ตัวใดตัวหนึ่ง แล้วข้อมูลที่เป็น Batc , location, Palet No. และ Quantity ขึ้น ตอนนี้กด Run เเล้ว Bug ค่ะ

Sub SearchBar()
Dim i As Integer
Dim j As Integer

j = Sheets(1).Range("b" & Rows.Count).End(xlUp).Row

i = Application ...

แก้ไขเเล้ว ใช่ได้เเล้วค่ะ ขอบคุณค่ะ

ข้อ 1 แก้ตามนี้ใช้ได้เเล้วค่ะ ขอบคุณนะคะ (แต่ว่าในข้อที่ 2 ยังแก้ไม่ได้ค่ะ)
Public Sub SaveStorage()
Dim i, r As Integer
Dim Tag, Day, MatCode, Pallet, Des, Quan, Loc, Note, Batch, Who As String
r = Sheets(3).Range("a" & Rows.Count).End(xlUp).Row
Tag = Sheets(1).Cells(5, 4).Value
Day = Sheets(1 ...

ต้องการเขียน Save ให้ได้หลายๆ รอบ :?:
1. ตอนนี้เขียน Save ใน VBA ได้เเล้วค่ะเเต่มันทำงานได้เเค่รอบเดียว ต้องการเขียน Code ให้ Save ข้อมูลได้หลายๆ รอบโดยอยากให้เวลาที่กดปุ่ม Save Transaction แล้วข้อมูลจะถูก Save ไปที่ sheet : Save เมื่อทำรายการใหม่เพื่อบันทึกข้อมูลตัวใหม่
(Code : SaveStorage ...

ออกแล้วค่ะ ขอบคุณค่ะ คุณ puriwutpokin