خطا در انتقال داده از فرم به یک شیت

[javad_khosravi]

سلام دوستان.تو این فایل وقتی تموم خونه های فرم پر شد گزینه فرم خروجی داده ها رو که زدیم باید بره خونه های شیت 1 رو به ترتیب اسمش پر کنه ولی خطا میده.ممنون میشم راهنماییم کنین.

[iranweld]

با سلام


تمام کدهای مشابه موجود را بصورت ذیل تغییر دهید

Dim a As Integer

a = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

If IsError(a) Then a = 6

a = a + 1

Sheets("sheet1").Range("a" & a).Value = feeder_number.Text


Dim b As Integer

b = Sheet1.Cells(Sheet1.Rows.Count, "b").End(xlUp).Row

If IsError(b) Then b = 6

b= b + 1 

[javad_khosravi]

با سلام


تمام کدهای مشابه موجود را بصورت ذیل تغییر دهید

Dim a As Integer

a = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

If IsError(a) Then a = 6

a = a + 1

Sheets("sheet1").Range("a" & a).Value = feeder_number.Text


Dim b As Integer

b = Sheet1.Cells(Sheet1.Rows.Count, "b").End(xlUp).Row

If IsError(b) Then b = 6

b= b + 1 

مرسی ولی بازم خطا میده همون خط اول.

[javad_khosravi]

با سلام


تمام کدهای مشابه موجود را بصورت ذیل تغییر دهید

Dim a As Integer

a = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

If IsError(a) Then a = 6

a = a + 1

Sheets("sheet1").Range("a" & a).Value = feeder_number.Text


Dim b As Integer

b = Sheet1.Cells(Sheet1.Rows.Count, "b").End(xlUp).Row

If IsError(b) Then b = 6

b= b + 1 

اینم تغییرش با خطا

[iranweld]

با سلام

فایل پیوست را بررسی بفرمایید