مرحوم محمد محمدی

🖤 پیام تسلیت

با نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفته‌اند.

ایشان سال‌ها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند.

مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.


انا لله و انا الیه راجعون

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

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • fimani119

    • 2018/11/10
    • 27
    • 29.00

    [حل شده] کپی فرمت سلول های مورد نظر یک شیت به شیت دیگر

    سلام و وقت بخیر
    چه فرمولی میتونم بنویسم که وقتی داده ای از یک شیت به شیت دیگه کپی میشه فرمت سلول ها هم منتقل بشن؟
    ممنون میشم کمکم کنید.یه قسمت از کدم به این شکله:
    کد:
    j = 7
    For i = 8 To z1
    
    
    If Left(Sheet1.Cells(i, 2), 3) = 193 And Sheet1.Cells(i, 4) <> 10383 Then
    j = j + 1
    
    For k = 1 To 15
    
    Sheet2.Cells(j, k) = Sheet1.Cells(i, k)
    Next k
    End If
    Next i
    Last edited by Amir Ghasemiyan; 2020/03/03, 14:49. دلیل: قرار دادن كدها در تگ مربوطه
  • Amir Ghasemiyan

    • 2013/09/20
    • 4600
    • 100.00

    #2
    سلام دوست عزيز
    بجاي اين خط كد:
    کد:
    Sheet2.Cells(j, k) = Sheet1.Cells(i, k)
    اين رو قرار بديد:

    کد:
    Sheet1.Cells(i, k).Copy Sheet2.Cells(j, k)

    کامنت

    چند لحظه..