makroyu eklentiye çevirme

[fatma_07]

merhaba ,
internette aşağıdaki gibi bir kod buldum cok kullanisli ve pratik . sutunu seciyorsunuz hangi rengi işaretlerseniz o renk teki hücreleri topluyor.

bu kodu eklenti yapabilir miyim bütün excell dosyalarımda kulllanmak isytiyorum. yardımcı olabilir misiniz

tesekkurler....

Sub SumCountByConditionalFormat()
Dim indRefColor As Long
Dim cellCurrent As Range
Dim cntRes As Long
Dim sumRes
Dim cntCells As Long
Dim indCurCell As Long

cntRes = 0
sumRes = 0

cntCells = Selection.CountLarge
indRefColor = ActiveCell.DisplayFormat.Interior.Color

For indCurCell = 1 To (cntCells - 1)
If indRefColor = Selection(indCurCell).DisplayFormat.Interior.Color Then
cntRes = cntRes + 1
sumRes = WorksheetFunction.Sum(Selection(indCurCell), sumRes)
End If
Next
MsgBox "Count=" & cntRes & vbCrLf & "Sum= " & sumRes & vbCrLf & vbCrLf & _
"Color=" & Left("000000", 6 - Len(Hex(indRefColor))) & _
Hex(indRefColor) & vbCrLf, , "Count & Sum by Conditional Format color"
End Sub

 

[Muzaffer Ali]

Merhaba.

Ekteki dosyayı indirin.
C:\Users\"Oturum Adınız"\AppData\Roaming\Microsoft\AddIns
klasörüne kopyalayın.

Excel Seçenekler/Eklentiler sayfasını açın.
"Yönet" = "Excel Eklentileri" seçili iken Gite tıklatın.
Açılan pencerede 'RenkTopla' nın yanındaki onay kutusunu işaretleyin.

Excel menü şeridine sağ tıklatın. Şeridi Özelleştiri seçin
"Buradaki Komutlardan Seçim Yapın" altındaki açılır listeden "Makrolar" seçin
Sağ altta bulunan "Yeni Sekme" tıklatın
Listede yer alan "RenkSecTopla" tıklatın "Ekle" yi tıklatın 'Tamam'ı tıklatın.

Şeritre yeni bir sekme oluşturmulş oldunuz Yeni Sekmede bulunan "RenkSecTopla" butonuna tıklatarak kodları istediğiniz dosyadan çalıştırabilirsiniz.

 

[fatma_07]

çok teşekkür ederim...

 

[mdujfii]

MAKROYU

Merhaba.

Ekteki dosyayı indirin.
C:\Users\"Oturum Adınız"\AppData\Roaming\Microsoft\AddIns
klasörüne kopyalayın.

Excel Seçenekler/Eklentiler sayfasını açın.
"Yönet" = "Excel Eklentileri" seçili iken Gite tıklatın.
Açılan pencerede 'RenkTopla' nın yanındaki onay kutusunu işaretleyin.

Excel menü şeridine sağ tıklatın. Şeridi Özelleştiri seçin
"Buradaki Komutlardan Seçim Yapın" altındaki açılır listeden "Makrolar" seçin
Sağ altta bulunan "Yeni Sekme" tıklatın
Listede yer alan "RenkSecTopla" tıklatın "Ekle" yi tıklatın 'Tamam'ı tıklatın.

Şeritre yeni bir sekme oluşturmulş oldunuz Yeni Sekmede bulunan "RenkSecTopla" butonuna tıklatarak kodları istediğiniz dosyadan çalıştırabilirsiniz.

MAKROYU NASIL EKLENTİYE ÇEVİRİYORUZ

 

[Muzaffer Ali]

MAKROYU





MAKROYU NASIL EKLENTİYE ÇEVİRİYORUZ

Şaka mı bu?

 

[mdujfii]

ne şakası ya off ingilizcemi konuşuyorum

 

[mdujfii]

MAKRO İÇERİĞİNİ NASIL EKLENTİ DOSYASI YAPIYORUZ....

 

[Muzaffer Ali]

Makro içeren dosyanızı farklı kaydet seçip, biçim olarak "Excel Eklentisi *.xlam" seçerek kaydetmelisiniz. Daha sonra yukarıda anlattığım şekilde tüm dosyalarda kullanabilirsiniz.

 

[mdujfii]

Makro içeren dosyanızı farklı kaydet seçip, biçim olarak "Excel Eklentisi *.xlam" seçerek kaydetmelisiniz. Daha sonra yukarıda anlattığım şekilde tüm dosyalarda kullanabilirsiniz.

Ok Çok teşekkürler.....