[حل شده] درج در شیت

[Saeidk]

سلام من یه برنامه نوشتم با vba دوستانم اینجا کمک کردن ولی من وقتی اطلاعاتی رو از ورک بوک دیگه ای کپی کردم آوردم تو برنامم عملیات درج در سلول انجام می گیره ولی بعد پرشدن سطر اول به سلطر بعدی نمیره و رو همون اطلاعات قبلی دوباره درج می کنه ...
۲ - اینکه می خوام وقتی اطلاعاتی رو کپی پیست کنم تو شیت فرم رو که فعال کردم برای نوشتن اطلاعات جدید بره تو آخرین سلول خالی برام درج کنه
۳- اینکه تو شیتم کد activeworkbook.save وارد کردم اولین داده را که وارد میکنم میره رو save as و فقط تا ستون چهارم درج می کنه یا اینکه وقتی از برنامه خارج میشم دوباره میام تو برنامه باز این مشکل پیش میاد
ممنون میشم راهنمایی کنین دوستان و اساتید بزرگوار

[Saeidk]

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

[Saeidk]

1252.xlsm.xls1252.xlsm.xlsفایل پیوستی...فایل اصلیم پیغام خطا میده نمیدونم چشه

[Saeidk]

fileAmlak.rarfileAmlak.rar این فایل اصلی هست که پیغام خطا میداد ...
ممنون دوستان که کمکم می کنین

[Saeidk]

کسی نیست یعنی؟

[Saeidk]

کسی پاسخ نداد از دوستان

[iranweld]

با سلام

برای ثبت دیتا در سطر خالی شیت یک کدهای موجود را با کد جدید ، تغییر دهید. در Sub editadd

emptyrow = WorksheetFunction.Count(Range("a:a"), ("b:b"), ("c:c"), ("d:d"), ("e:e"), ("f:f"), ("g:g"), ("h:h")) + 2 

emptyrow = Sheets("1").Cells(Sheets("1").Rows.Count, "A").End(xlUp).Row + 1 

[iranweld]

کدهای پشت سر خط بالا را هم میتونید خیلی خلاصه تر بنویسید

emptyrow = Sheets("1").Cells(Sheets("1").Rows.Count, "A").End(xlUp).Row + 1
    
    Do While Cells(i + 1, 1).Value <> ""
    
    If Cells(i + 1, 1).Value = id Then
    
    flag = True
    
    For j = 1 To 8
    
    Cells(i + 1, j).Value = UserForm1.Controls("textbox" & j).Value
    
    Next j
    
    End If
    
    i = i + 1
    
    Loop
    
    If flag = False Then
    
    For j = 1 To 8
    
    Cells(emptyrow, j).Value = UserForm1.Controls("textbox" & j).Value
    
    Next j
    
    End If
    
    End If
    
End Sub 

[Saeidk]

ممنون دوست عزیز
یه سوال دیگه اینکه یه فرم دیگه گذاشتم تو برنامه جهت ویرایش داده ها که همین کدهای بالاس با یکم تغییر ولی فقط وقتی تو تکست باکس ۱ که کد وارد میشه بقیه ی اطلاعات سطر رو فراخونی میکنه و میتونم ویرایش کنم حالا من می خوام اطلاعاتم رو براساس شماره پلاک اصلی و فرعی فراخونی کنم ولی موفق نشدمم اگه میشه کمک کنین ممنون دوست عزیز