تنفيذ كود على ورقة مخفية

[ابوسلماان]

الاعزاء

 

هل بالامكان تنفيذ كود على ورقة مخفية 

جربت هذا المثال ولم افلح

Sheets("المبيعات").Select

هل من طريقة لتنفيذ كودات على اوراق عمل مخفيه .. وشكراً

[سليم حاصبيا]

يمكن ذلك لكن بدون استعمال الامر Select او Activate او اي من الاوامر التي تقتضي ان تكون الشيت غير مخفية

جرب هذا الكود بعد اخفاء الشيت 2

Sub workking_with_hidden_sheet()
Dim i%
 For i = 1 To 50
Sheets("sheet2").Range("a" & i) = i
Next
End Sub

 

[ابوسلماان]

اشكرك استاذ سليم ،،

بخصوص الكود أعلاه لم استطع استخدامه..

عموما ارفقت ملف الاكسل المطلوب ترحيل البيانات فيه، وهو يعمل في حال ان الورقة data ظاهره ،، وعند اخفاءها يظهر الخطأ.

برجاء مساعدتي في تنفيذ الكود والورقة مخفية،، ولو امكن شرح الكود للاستفادة بارك الله فيكم.

 

وشكراً

sales_trans.rar

[سليم حاصبيا]

جرب هذاالكود

Option Explicit
Sub Copy_With_Hidden_Sheet()
If ActiveSheet.Name <> "Sales" Then Exit Sub
Dim Lr_sales%, Lr_data%
Dim Rg_Tocopy As Range

Lr_sales = Sheets("sales").Cells(Rows.Count, "A").End(3).Row
Lr_data = Sheets("data").Cells(Rows.Count, "V").End(3).Row
If Lr_sales < 2 Then Lr_sales = 2

 Set Rg_Tocopy = Sheets("data").Range("l1:v" & Lr_data)

     With Sheets("Sales")
        .Range("A2:K" & Lr_sales).ClearContents
        .Range("a2").Resize(Lr_data, Rg_Tocopy.Columns.Count).Value = Rg_Tocopy.Value
        .Range("A1").Select
    End With
End Sub

 

[ابوسلماان]

شكرا جزيلا استاذ سليم

 

بارك الله فيك