কিভাবে এক্সেল ইউজারফর্ম দিয়ে “কলাম” কপি করবেন – How to copy “Column” with Excel UserForm
ভিডিও টিউটোরিয়াল পেতে চ্যানেলটি লাইক ও সাবস্ক্রাইব করে সাথেই থাকুন
https://youtube.com/@KarimExcelVba
এই টিউটোরিয়ালে, আমরা একটি টেমপ্লেট তৈরি করেছি যেখানে আমরা ইউজারফর্ম ব্যবহার করে একটি শীট থেকে অন্য শীটে কলাম কপি করতে পারি। আমাদের ডাটাবেস এবং রিপোর্ট শীট সমন্বিত একটি ওয়ার্কবুক আছে।
Dim sutn, lst_column As Integer
lst_column = Sheets("Database").Cells(1, Columns.Count).End(xlToLeft).Column
For sutn = 1 To lst_column
ListBox1.AddItem Sheets("Database").Cells(1, sutn).Value
If Sheets("Database").Columns(sutn).Hidden = True Then
ListBox1.Selected(sutn - 1) = True
End If
Nextlst_column = Sheets("Database").Cells(1,Columns.Count).End(xlToLeft).Column 
লিস্টবক্স 1 থেকে লিস্টবক্স 2 এ একটি আইটেম সরানোর জন্য বাটনের কোডগুলি (কমান্ডবাটন 5) নিম্নরূপ :
Private Sub CommandButton5_Click()
Dim deger As String, m As Integer
If ListBox1.ListIndex = -1 Then 'If there is no item selected on listbox,no move will be made.
MsgBox "Choose an listbox item from left", , ""
Exit Sub
End If
deger = ListBox1.Value
For m = 0 To ListBox2.ListCount - 1
If deger = CStr(ListBox2.List(m)) Then
MsgBox "This item already exists in ListBox2", vbCritical, ""
Exit Sub
End If
Next
ListBox2.ListIndex = -1
ListBox2.AddItem ListBox1.Value
ListBox1.RemoveItem (ListBox1.ListIndex)
Call animation_to_right
End Subdeger = ListBox1.Value
For m = 0 To ListBox2.ListCount - 1
If deger = CStr(ListBox2.List(m)) Then
MsgBox "This item already exists in ListBox2", vbCritical, ""
Exit Sub
End If
Next
আইটেমগুলিকে উপরে এবং নীচে সরাতে আমরা স্পিন বাটনে নিম্নলিখিত কোডগুলি যুক্ত করেছি :
Private Sub SpinButton1_SpinDown()
With ListBox2
If .ListIndex = -1 Then Exit Sub
If .ListIndex < .ListCount - 1 Then
.AddItem .List(.ListIndex), .ListIndex + 2
.RemoveItem .ListIndex
.ListIndex = .ListIndex + 1
End If
End With
End Sub
Private Sub SpinButton1_SpinUp()
With ListBox2
If .ListIndex = -1 Then Exit Sub
If .ListIndex > 0 Then
.AddItem .List(.ListIndex), .ListIndex - 1
If .ListCount - 1 = .ListIndex Then
.RemoveItem .ListIndex
.ListIndex = .ListIndex - 1
Else
.RemoveItem .ListIndex
.ListIndex = .ListIndex - 2
End If
End If
End With
End Sub
উপরের বাটনের জন্য MouseMove পদ্ধতি (CommandButton5) :Private Sub CommandButton5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton5.Width = 38
CommandButton5.Left = 150
End Sub
আমরা ইউজারফর্মের জন্য MouseMove পদ্ধতি যুক্ত করেছি যাতে মাউস বাটনটি ছেড়ে দিলে বাটনটি তার ডিফল্ট অবস্থান এবং প্রস্থে ফিরে আসে।:Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton5.Width = 29
CommandButton5.Left = 150
VBA Codes of Filter button :
For basliklar = 0 To ListBox2.ListCount - 1
baslangic_satiri = 2
Sheets("Report").Cells(baslangic_satiri - 1, basliklar + 1) = ListBox2.List(basliklar, 0)
Sheets("Database").Range(FirstCell, LastCell).AdvancedFilter _
Action:=xlFilterCopy, CriteriaRange:=Sheets("Database").Range(FirstCell, LastCell), _
CopyToRange:=Sheets("Report").Cells(baslangic_satiri - 1, basliklar + 1), _
Unique:=False
Next
Sheets("Report").Columns.EntireColumn.AutoFit 'Widths of columns are set.
lst_column = Sheets("Report").Cells(1, Columns.Count).End(xlToLeft).Column
For s = 1 To lst_column 'Background color of column headers
Sheets("Report").Cells(1, s).Interior.Color = RGB(218, 238, 243)
Sheets("Report").Cells(1, s).Font.Bold = True
Next
📥 Download sample workbook