کپی داده های یک سطر به یک فایل جداگانه

**Amir Ghasemiyan** · 2019/07/02, 15:34

سلام دوست عزيز
لطفا فايل نمونه قرار بديد بر اساس اون فايل بايد كد نويسي انجام بشه

**hassan3756** · 2019/07/02, 23:50

سلام بر اساتید محترم
لطفا کمک کنید در مورد سوال
من در یک فایل اکسل می خواهم از شیت a یک جدول دارم شامل کد و نام و نام خانوادگی و غیر ه می باشد.
من می خواهم در شیت a یک دکمه و یک تیکس باکس ایجاد بشود.
که با تایپ یک کد در تیکس باکس و کلیک روی دکمه اطلاعات کد تایپ شده در یک فایل جداگانه اکسل ذخیره بشود
یعنی اگر کد 10 را زدم اطلاعات کد 10 که در فایل اکسل 10 ذخیره بشود و اگر کد 20را وارد نمودم و کلیک کردم در فایل اکسل 20 ذخیره بشود و الی آخر

ممنونم از اساتید محترم کمک کنند و اگر نمونه فایل در این مورد دارید ارسال کنید
بی نهایت سپاسگزارم

- - - Updated - - -

سلام
استاد محترم فایل را چگونه در اینجا آپلوکنم

**hassan3756** · 2019/07/03, 00:10

Book1.rar

**hassan3756** · 2019/07/03, 00:37

سلام استاد
نمونه فایل ارسال شده است
سپاس

**hassan3756** · 2019/07/03, 17:10

اساتید محترم با سلام و احترام در خواست کمک .من یک فایل اکسل دارم از شیت 1 یک جدول دارم شامل کد و شماره و تاریخ و غیره می باشد.
در شیت 1 یک دکمه و یک تیکس باکس ایجاد شده است.
که با تایپ یک کد در تیکس باکس و کلیک روی دکمه اطلاعات کد تایپ شده در شیت ذخیره می شود
حال سوال من این است که به جای این که در شیت 2 ذخیره شود در یک فایل اکسل جداگانه اکسل با نام کد تایپ شده در تیکس باکس در فایل اکسل جداگانه ذخیره شود.
فایل به پیوست ارسال می گردد فایل book1.rar می باشد
خیلی نیاز دارم اگر ممکن است زودتر جواب بدهید در فایل ارسال شده
بنهایت سپاسگزار هستم

- - - Updated - - -

فایل پیوست شده در مورد سوال ذخیره سطر در یم فایل جداگانه

فایل های پیوست شده

Book1.rar (20.1 کیلو بایت, مشاهدات 9)

**M_ExceL** · 2019/07/04, 01:21

نوشته اصلی توسط hassan3756

اساتید محترم با سلام و احترام در خواست کمک .من یک فایل اکسل دارم از شیت 1 یک جدول دارم شامل کد و شماره و تاریخ و غیره می باشد.
در شیت 1 یک دکمه و یک تیکس باکس ایجاد شده است.
که با تایپ یک کد در تیکس باکس و کلیک روی دکمه اطلاعات کد تایپ شده در شیت ذخیره می شود
حال سوال من این است که به جای این که در شیت 2 ذخیره شود در یک فایل اکسل جداگانه اکسل با نام کد تایپ شده در تیکس باکس در فایل اکسل جداگانه ذخیره شود.
فایل به پیوست ارسال می گردد فایل book1.rar می باشد
خیلی نیاز دارم اگر ممکن است زودتر جواب بدهید در فایل ارسال شده
بنهایت سپاسگزار هستم

- - - Updated - - -

فایل پیوست شده در مورد سوال ذخیره سطر در یم فایل جداگانه

سلام،
کافیست نام ورکبوک رو هم اضافه کنید.
مثال زیر رو ببینید :

کد:

Workbooks("test").Sheets(1).Cells(erow, 1).Paste

**hassan3756** · 2019/07/04, 02:36

سلام استاد
Sub copyx()

Dim lastrow As Long, erow As Long

lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lastrow

If Sheet1.Cells(i, 1) = Sheet1.TextBox1.Text Then

erow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Sheet1.Cells(i, 1).Copy

Sheet1.Paste Destination:=Worksheets("sheet2").Cells(erow, 1)

Sheet1.Cells(i, 2).Copy

Sheet1.Paste Destination:=Worksheets("sheet2").Cells(erow, 2)

Sheet1.Cells(i, 4).Copy

Sheet1.Paste Destination:=Worksheets("sheet2").Cells(erow, 3)
End If
Next i
Application.CutCopyMode = False
Sheet2.Columns().AutoFit
Range("a1").Select

End Sub

این کد را در کدام قسمت جایگزین کنم

workbooks("test").Sheets(1).Cells(erow, 1).Paste

می تونی در فایل پیوست شده این را جایگزین کنی و تست کنید ممنونم می شوم