Aktif satır üzerinde belirli hücrelere müdahale etmek

[EKREM1661]

Saygıdeğer arkadaşlar..! selamlar ve iyi akşamlar..

Şöyle bir makro gerekli.. Herhangi bir satır (aktif satır) üzerinde belirtilen hücrelere müdahale etmemiz lazım.. Mesela silmek gibi..

Örneğin; Aktif satır üzerinde 2. 3. 5. 6, 8. 10. 14. ncü sütunlarda yer alan hücrelerdeki verileri nasıl sileriz.. İşin özü şu: satır belli değil (hangi satır aktifse), sütun ise belli, verilen rakamlar...
Bunu bir makro dizesi içerisinde kullanacağım..

 

[Orion1]

Sub sil()
Cells(ActiveCell.Row, 2).Clear
Cells(ActiveCell.Row, 3).Clear
Cells(ActiveCell.Row, 5).Clear
Cells(ActiveCell.Row, 6).Clear
Cells(ActiveCell.Row, 8).Clear
Cells(ActiveCell.Row, 10).Clear
Cells(ActiveCell.Row, 14).Clear
End Sub

 

[Seyit Tiken]

Bu şekilde kendinize göre çoğaltıp deneyiniz.

Sub Makro1()
ActiveCell.Offset(, 1) = ""
ActiveCell.Offset(, 2) = ""
ActiveCell.Offset(, 3) = ""
ActiveCell.Offset(, 4) = ""
ActiveCell.Offset(, 5) = ""
End Sub

 

[EKREM1661]

Sn.Evren hocam..!
Kodlarda tam isabet...Ellerine ve bilgine sağlık..teşekkürlerimi ifade etmiş olmakla birlikte, gecenin bu vaktinde rahatsızlık verdiğim için de hoşgörünü dilerim...hayırlı akşamlar diliyorum ve hoşça kalın...

 

[EKREM1661]

Sayın Seyit Tiken hocam size de aynı dilek ve düşüncelerimle teşekkür ediyorum..hayırlı akşamlar ve muvaffakiyetler diliyorum...

 

[Orion1]

Sn.Evren hocam..!
Kodlarda tam isabet...Ellerine ve bilgine sağlık..teşekkürlerimi ifade etmiş olmakla birlikte, gecenin bu vaktinde rahatsızlık verdiğim için de hoşgörünü dilerim...hayırlı akşamlar diliyorum ve hoşça kalın...

Rica ederim.
İyi çalışmalar.

 

[Necdet]

Merhaba,

Ustaların yanıtlarına ek olarak, Alternatif olması açısından, aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalarsanız, herhangi bir satırda herhangi bir hücreye çift tıkladığınızda, ilgili hücreleri siler.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cells(Target.Row, 2).ClearContents
Cells(Target.Row, 3).ClearContents
Cells(Target.Row, 5).ClearContents
Cells(Target.Row, 6).ClearContents
Cells(Target.Row, 8).ClearContents
Cells(Target.Row, 10).ClearContents
Cells(Target.Row, 14).ClearContents
End Sub

 

[EKREM1661]

Sayın Necdet_Yeşertener hocam..! sağolun varolun, sizlere de eksiksiz teşekkürlerimi ifade ederim.. tek konu üzerinde bir kaç örneğe birden sahip olduk.. sizlerle yüz yüze görüşmesek de gönlümüzde seçkin olduğunuzu bilin..
iyi akşamlar..

 

[Necdet]

Sayın EKREM1661,

"Mutluluğun temelinde paylaşım kavramı yatar" der İlhan SELÇUK.

 

[EKREM1661]

aynen....! belki de millet olarak yükselmenin de, ve de birlikteliğin de.....

 

[Seyit Tiken]

Buda kodların kısaltılmış şekli.

Sub Düğme1_Tıklat()
For s = 1 To 10
ActiveCell(1, s) = ""
Next
End Sub