Kısa bir soru seçtiğim hücreleri temizlemek

[isarican]

arkadaşlar sadece bir hücreyi silebiliyorum benim yazdığım macro ile nasıl seçtiğim hücleri silerim benim kullandığım

Sub silmek()
ActiveCell.clear


End Sub

ActiveCell.Cut yerine ne kullanmalıyım

 

[Orion1]

arkadaşlar sadece bir hücreyi silebiliyorum benim yazdığım macro ile nasıl seçtiğim hücleri silerim benim kullandığım

Sub silmek()
ActiveCell.clear


End Sub

ActiveCell.Cut yerine ne kullanmalıyım

aşağıdaki gibi deneyin.

selection.clear

 

[isarican]

Tşk ederim oldu. Excel makro egitim videoları varmı forumda.

Ben şimdiye kadar excel eğitim videosu gördümde makro excel videosu görmedim. varsa linkini atabilir misiniz? Öğrenmek istiyorum da.

Bide visual basicteki dili kullanıyor degilmi excel. Ama sanırım bazı vb kodlarını kabul etmiyor excelin vba sı?

 

[Skorpiyon]

Sayın isarican,

Excel'de yapmak istediğiniz bir çok şeyi, MAKRO KAYDET deyip yapacaklarınızı yaptıktan sonra MAKRO DURDUR dediğinizde, (Excel sizin için VBA kodlarını yazıyor) yapabilirsiniz.

Geriye sadece bunu biraz geliştirmek kalıyor.

Saygılarımla...

 

[isarican]

Sayın isarican,

Excel'de yapmak istediğiniz bir çok şeyi, MAKRO KAYDET deyip yapacaklarınızı yaptıktan sonra MAKRO DURDUR dediğinizde, (Excel sizin için VBA kodlarını yazıyor) yapabilirsiniz.

Geriye sadece bunu biraz geliştirmek kalıyor.

Saygılarımla...

Haklısınız. Ancak benim en takıldığım yer. Örnegin a1ve b1e veri giriyorum.
makro kayıt et diyorum. c1 hücresine =a1+b1 yazıyorum.makroyu durduruyorum.

daha sonra koduna bakıyorum makronun

sayfayı siliyorum. makroyu çalıştırıyorum. Kafasına göre hücreye yerleştiriyor. Benim istedigim seçtigim hücrelere yerleştirilmesini sağlamak ancak genellikle yapamıyorum.

Bunun bir yolu varmı. Birde excel makro eğitim videoları varmı?

iyi geceler tşk ederim,sağolun

 

[Recep İpek]

Sn.isarican.

Makro ve VBA konularını tam olarak eğitim videoları ve kitaplarda bulamazsınız.Ancak kısa olarak bulunabilinir.
Oda formül yazmak,makro kaydetmek vb işlemleri anlatır.

Makroların çok geniş bir alanı olduğu için öğrenilmesi zaman alan ve çok pratik yapılması gereken bir konudur.

Size tavsiyem kendinize göre küçük örnekler bularak veya bir projeniz var ise
onun üzerinden giderek araştırma yapmanızdır.Bu forum kaynak bulmanız konusunda bulunmaz bir nimettir.Forumdaki örnek kodları incelemenizi şiddetle tavsiye ederim.

Kolay Gelsin.

 

[Skorpiyon]

Sayın isarican,

Aslında Excel sizin istediğiniz tam olarak veriyor. RC başvurusu yapıyorsunuz. Bu başvuruda aktif hücreniz nerede ise, butona bastığınızda o hücrenin önündeki değerleri alıyor.

Bunun kolay yöntemi ise şu,

Bir buton ekleyin ve kod bölümüne
cells(1,3).value = cells(1,1).value + cells(1,2).value
(Üçüncü hücrenin değeri, 1. hücre ile 2. hücrenin toplamıdır gibi.)
yazın. Bu durumda aktif hücreniz neresi olursa olsun sonucu doğru alırsınız.
Programcılıkta bir de hataların önüne geçme durumu söz konusudur. Örneğin C1 hücresinde siz Sıfır görünmesini istemiyorsanız veya değerler eksik girildiğinde uyarı versin istiyorsanız buu seferde bu kodların önüne bir sorgu yapmalısınız. Yani;

if cells(1,1).value = "" then
msgbox "A1 hücreniz boş, lütfen değer giriniz."
exit sub
end if
gibi.



Dediğim gibi, Excel sizin tam olarak istediğiniz veriyor, geriye sadece sizin bu kodları biraz daha geliştirmeniz, mantığını kavramak için çaba sarfetmeniz kalıyor.

Kolay gelsin, Saygılarımla.

 

[isarican]

Hepinize tşk ederim. Arkadaşlar iyiki varsınız İyi Geceler saygılarımla,

 

[isarican]

Sayın isarican,

Aslında Excel sizin istediğiniz tam olarak veriyor. RC başvurusu yapıyorsunuz. Bu başvuruda aktif hücreniz nerede ise, butona bastığınızda o hücrenin önündeki değerleri alıyor.

Bunun kolay yöntemi ise şu,

Bir buton ekleyin ve kod bölümüne
cells(1,3).value = cells(1,1).value + cells(1,2).value
(Üçüncü hücrenin değeri, 1. hücre ile 2. hücrenin toplamıdır gibi.)
yazın. Bu durumda aktif hücreniz neresi olursa olsun sonucu doğru alırsınız.
Programcılıkta bir de hataların önüne geçme durumu söz konusudur. Örneğin C1 hücresinde siz Sıfır görünmesini istemiyorsanız veya değerler eksik girildiğinde uyarı versin istiyorsanız buu seferde bu kodların önüne bir sorgu yapmalısınız. Yani;

if cells(1,1).value = "" then
msgbox "A1 hücreniz boş, lütfen değer giriniz."
exit sub
end if
gibi.



Dediğim gibi, Excel sizin tam olarak istediğiniz veriyor, geriye sadece sizin bu kodları biraz daha geliştirmeniz, mantığını kavramak için çaba sarfetmeniz kalıyor.

Kolay gelsin, Saygılarımla.

Sayın arkadaşım verdiğiniz kodları inceledim.

Simdi size zahmet veriyorum ama son olarak birde seçtiğim herhangi bir hücreye toplama işlemini yapmasını nasıl saglarız.

Örnek mesela d1hücresini seçtim. b1+c1 hücresin toplamını verecek makroyu çalıştırdığımda

nasil kodlanır.

Arasındaki farkı bu sekil daha rahat anlayabilirim

Selection.cell.Value = Cells(1, 1).Value + Cells(1, 2).Value

bu şekil yaptım olmadı.

 

[isarican]

=Sayın Arkadaşım sorunu hallettim. Makro kayıtı ile çözüme ulaştım.

Gerekli kod

Sub Makro2()
'
' Makro2 Makro
'

'
    ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-1]"
End Sub

 

[Recep İpek]

Kodu

Selection.Value = Cells(1, 1).Value + Cells(1, 2).Value

olarakta değiştirebilirsiniz.

 

[Skorpiyon]

Sayın isarican,

Mesajınızı geç farkettim, kusura bakmayın.

Aşağıdaki kodları bir butona yapıştırın.

Sub Düğme1_Tıklat()
If Cells(1, 2).Value = "" Then 'B1 boş ise
MsgBox "B1 hücreniz boş, değer giriniz" 'Uyarı ver
Exit Sub 'İşlemi kes
ElseIf Cells(1, 3).Value = "" Then 'C1 boş ise
MsgBox "C1 hücreniz boş, değer giriniz" 'Uyarı ver
Exit Sub 'İşlemi kes
End If 'B1 ve C1 boş değilse devam et
'Seçilen hücrenin değerini B1 + C1 yap
ActiveCell.Value = Cells(1, 2).Value + Cells(1, 3).Value
'Veya siz buraya hangi hücreye toplatmak isterseniz onun adresini yazın
'D1 hücresi derseniz
'cells(1,4).value =Cells(1, 2).Value + Cells(1, 3).Value yazmalısınız.
End Sub

 

[Skorpiyon]

Sayın isarican,

Küçük bir bilgi daha vereyim. Eğer siz kod sayfasında kodu yazıp, Enter tuşuna basıp bir alt satıra geçtiğinizde, (nokta) 'dan sonra büyük harf yok ise kesin hata var demektir.

Selection.cell.Value = Cells(1, 1).Value + Cells(1, 2).Value gibi.​

Saygılarımla...

 

[isarican]

Sayın isarican,

Küçük bir bilgi daha vereyim. Eğer siz kod sayfasında kodu yazıp, Enter tuşuna basıp bir alt satıra geçtiğinizde, (nokta) 'dan sonra büyük harf yok ise kesin hata var demektir.

Selection.cell.Value = Cells(1, 1).Value + Cells(1, 2).Value gibi.​

Saygılarımla...

Arkadaşım çok sagol siz bu yazıyı yazmadan önce ben sorunumu hallettim. Benim yaptığım yanlış formülü yazıp entere basmam. Sizin yazınızı okumadan önce birde formülü yazıp formül çubugundan onay(ticK) i tıklayayım dedim. Böylece aktif olduğum hücrede oldum yine(birsatır aşağıya inmedi) böylece sorunumu hallettim. seçtigim hücrelere formülü uygulamak içinde selection kodunu uyguladım. Sorun halloldu. bir enter tusuna basmamdan dolayı sorun yaşıyormuşum.Bu da kulağıma bir küpe oldu.

Tekrardan arkadaşlar ilginizden ötürü tşk ederim. :arkadas:

 

[Skorpiyon]

Sayın isarican,

Kolay gelsin, hayırlı geceler.

Saygılarımla...