- Katılım
- 12 Ekim 2010
- Mesajlar
- 224
- Excel Vers. ve Dili
- 2013 türkçe
- Altın Üyelik Bitiş Tarihi
- 01-03-2021
Arkadaşlar bir makrom Comboboxla seçtiğim hücre aralığından istediğim veriyi seçiyor ve labellere yazı gönderiyor.
Diğer makrom ise o hücre aralığında ki satırda herhangi bir silme işlemi veya aynı kişiyi ekleme işlemi olursa onları toplayarak üst satırda hizaya getiriyor.
bu makrolar birbirinden bağımsız olmasına rağmen güncelle butonuna attığım makro combobox makrosunda ki bir kod satırında hata veriyor.
X = Doldur.Value
Dim no As Range
Dim Ara As Range
Set no = Range("q3:q20")
Set Ara = Cells.Find(What:=X, After:=ActiveCell, LookIn:=xlFormulas) ( Güncelle butonunu kullandığımda hata veren satır.. )
If Not Ara Is Nothing Then
ilk = Ara.Address
Ara.Select
DoldurAdi.Caption = Ara(1, 0).Value
DoldurUnvan.Caption = Ara(1, 2).Value
Private Sub GuncelleBas_Click()
Range("q3:q20").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("P3:R100"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Diğer makrom ise o hücre aralığında ki satırda herhangi bir silme işlemi veya aynı kişiyi ekleme işlemi olursa onları toplayarak üst satırda hizaya getiriyor.
bu makrolar birbirinden bağımsız olmasına rağmen güncelle butonuna attığım makro combobox makrosunda ki bir kod satırında hata veriyor.
X = Doldur.Value
Dim no As Range
Dim Ara As Range
Set no = Range("q3:q20")
Set Ara = Cells.Find(What:=X, After:=ActiveCell, LookIn:=xlFormulas) ( Güncelle butonunu kullandığımda hata veren satır.. )
If Not Ara Is Nothing Then
ilk = Ara.Address
Ara.Select
DoldurAdi.Caption = Ara(1, 0).Value
DoldurUnvan.Caption = Ara(1, 2).Value
Private Sub GuncelleBas_Click()
Range("q3:q20").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("P3:R100"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal