[حل شده] ساخت فرم چاپ در اکسل

[bluetoo3]

با سلام
من توی اکسل یه لیست دارم که اطلاعات کارمندها سیو شده
دنبال راه حلی هستم بتونم با کلیک بر روی سلول چاپ ، اطلاعات رو به شیت دیگر برده و چاپ بگیرم
مثل فایل نمونه
همچین چیزی امکان داره ؟

[Amir Ghasemiyan]

با سلام
من توی اکسل یه لیست دارم که اطلاعات کارمندها سیو شده
دنبال راه حلی هستم بتونم با کلیک بر روی سلول چاپ ، اطلاعات رو به شیت دیگر برده و چاپ بگیرم
مثل فایل نمونه
همچین چیزی امکان داره ؟

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

اين كدهايي كه در اختيارتون ميذارم رو در كدهاي شيت 1 كپي كنيد. بعد هر سلولي كه از ستون چاپ انتخاب كنيد اطلاعات مربوط به آن را در شيت بعدي كپي ميكند

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim arr(5) As Variant
If Not Intersect(Target, Range("H:H")) Is Nothing Then
    For i = 1 To 6
        arr(i - 1) = Target.Offset(, i - 7).Value
    Next i
End If


With Sheet2
    .Range("H4").Value = arr(5)
    .Range("D6").Value = arr(0)
    .Range("G6").Value = arr(1)
    .Range("D17").Value = arr(2)
    .Range("G17").Value = arr(3)
End With
End Sub

[bluetoo3]

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

اين كدهايي كه در اختيارتون ميذارم رو در كدهاي شيت 1 كپي كنيد. بعد هر سلولي كه از ستون چاپ انتخاب كنيد اطلاعات مربوط به آن را در شيت بعدي كپي ميكند

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim arr(5) As Variant
If Not Intersect(Target, Range("H:H")) Is Nothing Then
    For i = 1 To 6
        arr(i - 1) = Target.Offset(, i - 7).Value
    Next i
End If


With Sheet2
    .Range("H4").Value = arr(5)
    .Range("D6").Value = arr(0)
    .Range("G6").Value = arr(1)
    .Range("D17").Value = arr(2)
    .Range("G17").Value = arr(3)
End With
End Sub

ممنونم دوست عزیز دقیقا همون که می خواستم
تشکر فراوان

[Amir Ghasemiyan]

ممنونم دوست عزیز دقیقا همون که می خواستم
تشکر فراوان

خواهش ميكنم
پس اگر جواب سوالتون رو گرفتين لطفا تاپيك رو حل شده كنيد