Buton özellik atama

[srdrkzltg]

Arkadaşlar Merhaba,

Ufak bir sorum var,

ActiveX den Komut düğmesi ekledim, burada Arama 1 e bastığımda C sütunundaki değerler H sütununa gelsin, Arama 2 ye basarsam D sütunundaki değerler H a gelsin istiyorum,

Nasıl yapabilirim ?

 

[muygun]

Merhaba;
Sayfanın kod bölümüne;

Sub arama1()
For i = 1 To Range("c65536").End(xlUp).Row
Cells(i, "h") = Cells(i, "c")
Next i
End Sub

Sub arama2()
For i = 1 To Range("d65536").End(xlUp).Row
Cells(i, "h") = Cells(i, "d")
Next i
End Sub

Kodlarını yerleştirip ilgili butonlara atayın.
İyi çalışmalar

 

[çıtır]

CommandButton ise Deneyiniz

Private Sub CommandButton1_Click()

son = Sheets(1).Cells(65335, "C").End(3).Row
Sheets(1).Range("H5:H" & Rows.Count).Cells.ClearContents

For i = 5 To son
Sheets(1).Range("H" & i) = Sheets(1).Range("C" & i)
Next i
End Sub

Private Sub CommandButton2_Click()
son = Sheets(1).Cells(65335, "D").End(3).Row
Sheets(1).Range("H5:H" & Rows.Count).Cells.ClearContents

For i = 5 To son
Sheets(1).Range("H" & i) = Sheets(1).Range("D" & i)
Next i
End Sub

 

[srdrkzltg]

Atama adımını nasıl yapacağım ?

 

[srdrkzltg]

CommandButton ise Deneyiniz

Private Sub CommandButton1_Click()

son = Sheets(1).Cells(65335, "C").End(3).Row
Sheets(1).Range("H5:H" & Rows.Count).Cells.ClearContents

For i = 5 To son
Sheets(1).Range("H" & i) = Sheets(1).Range("C" & i)
Next i
End Sub

Private Sub CommandButton2_Click()
son = Sheets(1).Cells(65335, "D").End(3).Row
Sheets(1).Range("H5:H" & Rows.Count).Cells.ClearContents

For i = 5 To son
Sheets(1).Range("H" & i) = Sheets(1).Range("D" & i)
Next i
End Sub

Bu oldu, teşekkür ederim, yalnız ufak bir sorum daha olacak, aynı işlemde Arama 1 tıkladığımda C ve D yi H ve I ya, Arama 2 ye bastığımda E ve F yi aynı anda H ve I ya yazdırmak için ne yapmam gerekir ?

 

[çıtır]

Aşağıdaki şekilde deneyiniz.

Private Sub CommandButton1_Click()
son = Sheets(1).Cells(65335, "C").End(3).Row
Sheets(1).Range("H5:I" & Rows.Count).Cells.ClearContents
For i = 5 To son
Sheets(1).Range("H" & i) = Sheets(1).Range("C" & i)
Sheets(1).Range("I" & i) = Sheets(1).Range("D" & i)
Next i
End Sub
Private Sub CommandButton2_Click()
son = Sheets(1).Cells(65335, "D").End(3).Row
Sheets(1).Range("H5:I" & Rows.Count).Cells.ClearContents
For i = 5 To son
Sheets(1).Range("H" & i) = Sheets(1).Range("E" & i)
Sheets(1).Range("I" & i) = Sheets(1).Range("F" & i)
Next i
End Sub