Forum :: Başlık Görünümü

Forum » GENEL » Dosyalar Hakkında Sorular » Makrosuz çalışmayan excel formülleri...
Üye Olmak İstiyorum Parolamı Unuttum Aktivasyon Linki Gönder Yardım Arama
Makrosuz çalışmayan excel formülleri...
Burada Olan Üyeler: 1 ziyaretçi
Mesaj Tarihi: 04.08.2017 16:47 #1
Makrosuz çalışmayan excel formülleri...

Cuma Burda Mesaj Sayısı: 4
Katılım Tarihi: 06.12.2016
Teşekkür Sayısı: 5
Bu üye 1 mesajına 1 teşekkür aldı.

Yeni Gelen

Selamlar.. Başlıkta, ne anlatmak istediğimi tam ifade edememiş olabilirim..Kusuruma bakmayın. *s01l*
Bahadır beyin http://exceldepo....sya_no=273 linkinde paylaştığı bir konu vardı. "Farklı hücrelerdeki verileri sıralama." konusu.
Burada benim yeni öğrendiğim bir konu var; hücre içine formül yazılıyor, fakat makro içine konuyla ilgili makroyu yazmazsak formül çalışmıyor...
Birincisi bu konuyla ilgili bilgi paylaşımı yapabilirseniz sevinirim.
Diğer bir konu da, formül ve makroda geçen " concat " konusu.Yardımcı olabilirseniz sevinirim.
Teşekkürler, iyi çalışmalar.
Bu mesaja teşekkür eden olmadı. | Teşekkür eden üyeler: Yok
IP: 0.0.0.0
Mesaj Tarihi: 04.08.2017 17:40 #2
Cevap: Makrosuz çalışmayan excel formülleri...

Admin Mesaj Sayısı: 47
Katılım Tarihi: 06.12.2016
Teşekkür Sayısı: 4
Bu üye 11 mesajına 11 teşekkür aldı.

Süper Yönetici

Merhaba Cuma bey,

O dosyamızda, bir talep üzerine cinsiyet dağılımının sıra numaralarını tek bir hücreye toplamıştık.
Hızlı olması açısından önce bir KTF (Kullanıcı Tanımlı Fonksiyon) oluşturup, makrolarla süreci hızlandırıp, Excel formülü ile sonuca ulaştık.

Orada geçen "concat" bu bahsettiğim KTF'nin adıdır.
Çalışması için makroların etkinleştirilmesi gerekir.

Siz de, Düşeyara, ÇoEtopla vs türde makrolarla istediğiniz gibi kendinize has formüller yazabilir, bu formülün adını da Cuma koyabilirsiniz.

=CUMA(A1) derseniz mesela formül çalışır.
Daha geniş bir zamanda bu konu üzerinde duralım.

İyi hafta sonları.
Bu mesaja 1 üye teşekkür etti. | Teşekkür eden üyeler: Cuma Burda
IP: 0.0.0.0
Mesaj Tarihi: 07.08.2017 09:31 #3
Cevap: Makrosuz çalışmayan excel formülleri...

Cuma Burda Mesaj Sayısı: 4
Katılım Tarihi: 06.12.2016
Teşekkür Sayısı: 5
Bu üye 1 mesajına 1 teşekkür aldı.

Yeni Gelen

Teşekkür ederim Bahadır hocam...
KTF (Kullanıcı Tanımlı Fonksiyon) konusu benim için yeni ve farklı bir alandı ve benim için faydalı oldu.
Bu konuda elinizde farklı basit örnekler varsa ve paylaşabilirseniz sevinirim...
Tekrar Teşekkürler, Başarılar...
Bu mesaja 1 üye teşekkür etti. | Teşekkür eden üyeler: Admin
IP: 0.0.0.0
Reklam
Mesaj Tarihi: 07.08.2017 09:36 #4
Cevap: Makrosuz çalışmayan excel formülleri...

Admin Mesaj Sayısı: 47
Katılım Tarihi: 06.12.2016
Teşekkür Sayısı: 4
Bu üye 11 mesajına 11 teşekkür aldı.

Süper Yönetici

Merhaba Cuma bey,

Örnek bir dosya hazırlayıp, dosyalar kısmında paylaşıyor olacağım.

İyi çalışmalar,
Bu mesaja 1 üye teşekkür etti. | Teşekkür eden üyeler: Cuma Burda
IP: 0.0.0.0
Mesaj Tarihi: 26.09.2017 12:01 #5
Cevap: Makrosuz çalışmayan excel formülleri...

uzman59 Mesaj Sayısı: 3
Katılım Tarihi: 26.09.2017
Teşekkür Sayısı: 1

Yeni Gelen

Aşağıdaki 3 makroyu aynı excel sayfasında çalıştıramadım ne yapmam lazım yardım lütfen[/u][/b]




Makro1
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [M277]) Is Nothing Then
Exit Sub
End If
If Target <> "" Then
If Target > 750 Then
[B3:26,B28:B33].Interior.Color = 12611584
ElseIf Target > 500 Then
[B3:26,B28:B33].Interior.Color = vbBlue
ElseIf Target > 250 Then
[B3:26,B28:B33].Interior.Color = vbGreen
ElseIf Target > -250 Then
[B3:26,B28:B33].Interior.Color = vbYellow
ElseIf Target > -500 Then
[B3:26,B28:B33].Interior.Color = 13382655
ElseIf Target > -750 Then
[B3:26,B28:B33].Interior.Color = vbRed
End If
End Sub
Makro2
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B33]) Is Nothing Then
Exit Sub
End If
If Target <> "" Then
If Target > 750 Then
[C3:C26,C28:C33].Interior.Color = 12611584
ElseIf Target > 500 Then
[C3:C26,C28:C33].Interior.Color = vbBlue
ElseIf Target > 250 Then
[C3:C26,C28:C33].Interior.Color = vbGreen
ElseIf Target > -250 Then
[C3:C26,C28:C33].Interior.Color = vbYellow
ElseIf Target > -500 Then
[C3:C26,C28:C33].Interior.Color = 13382655
ElseIf Target > -750 Then
[C3:C26,C28:C33].Interior.Color = vbRed
End If
End If
End Sub
Makro3
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C33]) Is Nothing Then
Exit Sub
End If
If Target <> "" Then
If Target > 750 Then
[D3:D26,D28:D33].Interior.Color = 12611584
ElseIf Target > 500 Then
[D3:D26,D28:D33].Interior.Color = vbBlue
ElseIf Target > 250 Then
[D3:D26,D28:D33].Interior.Color = vbGreen
ElseIf Target > -250 Then
[D3:D26,D28:D33].Interior.Color = vbYellow
ElseIf Target > -500 Then
[D3:D26,D28:D33].Interior.Color = 13382655
ElseIf Target > -750 Then
[D3:D26,D28:D33].Interior.Color = vbRed
End If
End If
End Sub
Bu mesaja teşekkür eden olmadı. | Teşekkür eden üyeler: Yok
IP: 0.0.0.0
Mesaj Tarihi: 26.09.2017 19:44 #6
Cevap: Makrosuz çalışmayan excel formülleri...

Admin Mesaj Sayısı: 47
Katılım Tarihi: 06.12.2016
Teşekkür Sayısı: 4
Bu üye 11 mesajına 11 teşekkür aldı.

Süper Yönetici

Metin bey merhaba,

Örnek dosyanızı eklerseniz yardımcı olmaya çalışalım.

Kolaylıklar.
Bu mesaja 1 üye teşekkür etti. | Teşekkür eden üyeler: uzman59
IP: 0.0.0.0
Mesaj Tarihi: 27.09.2017 21:11 #7
Cevap: Makrosuz çalışmayan excel formülleri...

uzman59 Mesaj Sayısı: 3
Katılım Tarihi: 26.09.2017
Teşekkür Sayısı: 1

Yeni Gelen

Rica etsem aynı işlemi diğer hücrelere nasıl uygulayabilirim örnek B33 hücresinin değerine göre c sütunun rengi değişsin bunları aynı kod sayfasında(A33 hücresinin değerine göre b sütunu rengi değiştiği)yazabilirmiyiz aşağıdaki gibi;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B33]) Is Nothing Then
Exit Sub
End If
If Target <> "" Then
If Target > 750 Then
[C3:C26,C28:C33].Interior.Color = 12611584
ElseIf Target > 500 Then
[C3:C26,C28:C33].Interior.Color = vbBlue
ElseIf Target > 250 Then
[C3:C26,C28:C33].Interior.Color = vbGreen
ElseIf Target > -250 Then
[C3:C26,C28:C33].Interior.Color = vbYellow
ElseIf Target > -500 Then
[C3:C26,C28:C33].Interior.Color = 13382655
ElseIf Target > -750 Then
[C3:C26,C28:C33].Interior.Color = vbRed
End If
End If
End Sub
While[
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C33]) Is Nothing Then
Exit Sub
End If
If Target <> "" Then
If Target > 750 Then
[D3:D26,D28:D33].Interior.Color = 12611584
ElseIf Target > 500 Then
[D3:D26,D28:D33].Interior.Color = vbBlue
ElseIf Target > 250 Then
[D3:D26,D28:D33].Interior.Color = vbGreen
ElseIf Target > -250 Then
[D3:D26,D28:D33].Interior.Color = vbYellow
ElseIf Target > -500 Then
[D3:D26,D28:D33].Interior.Color = 13382655
ElseIf Target > -750 Then
[D3:D26,D28:D33].Interior.Color = vbRed
End If
End If
End Sub
Bu mesaja teşekkür eden olmadı. | Teşekkür eden üyeler: Yok
IP: 0.0.0.0
Makrosuz çalışmayan excel formülleri... konusuna oy veriniz.
Güncel Oy:
Lütfen oyunuzu seçiniz: Başlığa oy verebilmek için üye olmanız ya da üye girişi yapmanız gerekmektedir.
Atlanılacak Forum:
« Önceki Başlık | Sonraki Başlık »

Benzer Başlıklar

Başlık / Açan Forum Cevap Adedi
Görüntülenme
En Son Mesaj
Yeni Mesaj Yok Spor Salonu Üye Kayıt Excel
Bu başlık FightClub tarafından 17.11.2017 12:50 tarihinde açıldı.
Görüş & Öneri & İstekler & Eleştiri Cevaplar: 1
Görüntüleme: 53
Gönderen Admin
18.11.2017 20:00 Son forum mesajına git