Makro ile aktarma

[m.gur]

Herkese Selam;
Ekte gönderdiğim örneğin bir kısmında makroya ihtiyacım oldu. Amacıma uygun örnek bulamadım. Umarım ilgilenen olur. Teşekkürler.

 

[m.gur]

Herkese merhaba, hayırlı ramazanlar;
İlk soruma hiç kimseden cevap gelmedi. Bu beni biraz çalıştırdı bu aşamayı deneme-yanılma metodu ile aştım.Şimdiki sorunum H,I,J,K sütunlarındaki bilgileri A,B,C,D sütunlarına aktarmak istiyorum ancak aynı malzemeleri toplayarak aktarması gerekiyor. Nasıl yapabilirim. Yardımlarınız gerekiyor. Teşekkürler.

 

[Recep İpek]

Ekteki dosyanızı inceleyiniz.

 

[m.gur]

Sayın ripek;
Cevabınız için çok teşekkür ederim. Topla çarpım ile yapılacağını biliyordum ama bir türlü yerleştiremedim. Ayrıca bu konuda çok araştırdım forumu. Soruma uygun cevap bulamadığım için sordum. Neden sitemkar davrandığınızı anlıyamadım. Amacımız burada öğrenmek değilmi.

 

[Recep İpek]

Sn.m.gur,

İmzamdaki yazının sizinle bir alakası yok.Bu konuda da sizin forumda birçok araştırma yaptığınızıda inanıyorum. Maalesef birçok arkadaşımız soru sormadan önce arama zahmetine girmeden, direk sorularını soruyor.Bu da forumumuzda gereksiz bilgiye yol açmaktadır.Sadece bu kurala uymayanlar için bir uyarı.

Ayrıca sorununuz çözüldüğü için sevindim.

 

[m.gur]

Sn ripek;
Sanırım yanlış anlamışım sizi özür dilerim. Bu konuda yardımlarınız içinde teşekkür ederim. Ufak bir bir sorum daha olacak. Topla.çarpım yaptığımız hücrelerde "0" değeri çıkmaması için ne yapabilirim. Saygılar..

 

[eyüppsen]

Merhaba
Araçlar>Seçenekler>Sıfır Değerleri kutucuğundaki işareti kaldırısanız sıfırlar görünmez.

 

[m.gur]

Sn eyüppsen;
Teşekkürler. Bazen en ufak şey gözümüzden kaçıyor. Ben formüllere ve makrolara dalmışken bunu aklıma dahi getiremedim. Bir yere odaklanınca gözünün önünü göremiyor insan bazen. İyi günler.

 

[m.gur]

Sn ripek;
Dünden beri dosyayı inceliyorum. Ufak bir sorun var. Tekrar bakabilirmisiniz. İlk sırada yazdığım malzemeyi aktarma yaparken 2 ci defa yazıyor. Ben düzeltemedim bunu. Teşekkürler.

 

[Recep İpek]

Makro kodlarını aşağıdaki gibi düzeltebilirsiniz.

Sub Hesapla01()
On Error Resume Next
Application.ScreenUpdating = False

Set S1 = Sheets(1)

Set alan1 = S1.Range("H[b]6[/b]:H40")
Set alan3 = S1.Range("A[b]6[/b]:A40")

alan3.ClearContents
  
alan1.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=alan3, Unique:=True

Application.ScreenUpdating = True

End Sub

 

[m.gur]

Çok teşekkürler..Şimdilik denedim çalışıyor. İyi ki varsınız..Çok sağolun.

 

[Aseker]

Merhaba ,
Ben her iki dosyayı da indirdim ama makro görünmüyor..Excel 2002 Tr kullanıyorum.. Sorun ne anlayamadım???
Acemiliğimi hoşgörün.Teşekkürler.

 

[Recep İpek]

Alt+F11 yapınca makroyu görmeniz gerekiyor.