Koşullu Biçimlendirme hakkında yardım

[yesimgurol]

Merhabalar; sorunumu ,yardımlarınızı beklediğim konu hakkında ekteki örnek dosya içerisinde açıklama yapmaya çalıştım.Yapmak istediğim,bir hücreye biçimlendirme yaptım ama listede 100 e yakın veri var bunları da tek tek yapmak uğraştırıcı gerçekten acaba bunları makro ile yaptırmak mümkün mü? Siz değerli uzmanlarımızdan bu konu hakkında yardım bekliyorum.İlginize şimdiden teşekkür ederim.İyi çalışmalar..

 

[ahmet kabadayı]

Merhaba,

1- koşullu biçimlendirmeye başlamadan önce J klonundan 100 satırınızı seçiniz.
2- koşullu biçimlendirme yaparken $ işaretini kaldırınız.

Saygılarımla

 

[yesimgurol]

Yaptım ama;"bir koşullu biçimlendirme formülünde bir çalışma sayfası aralığı doğrudan başvuru kullanamazsınız" şeklinde uyarı verdi. Nerede yanlış yaptım acaba:-(

 

[asi_kral]

Merhabalar; sorunumu ,yardımlarınızı beklediğim konu hakkında ekteki örnek dosya içerisinde açıklama yapmaya çalıştım.Yapmak istediğim,bir hücreye biçimlendirme yaptım ama listede 100 e yakın veri var bunları da tek tek yapmak uğraştırıcı gerçekten acaba bunları makro ile yaptırmak mümkün mü? Siz değerli uzmanlarımızdan bu konu hakkında yardım bekliyorum.İlginize şimdiden teşekkür ederim.İyi çalışmalar..

Merhaba
Veri Aralığını seçin ve koşulu böyle tekrardan girin.
Dosyanız Ekte 65536 satırda çalışır.

 

[yesimgurol]

Çok teşekkür ederim,ilginize emeğinize... Tamda istediğim gibi oldu.

Yalnız bir sorum daha olacaktı.Mümkün müdür?

 

[asi_kral]

Çok teşekkür ederim,ilginize emeğinize... Tamda istediğim gibi oldu.

Yalnız bir sorum daha olacaktı.Mümkün müdür?

Kolay Gelsin.
Konu aynı ise buyrun. Konu farklı ise yeni konu açın mutlaka yardım eden olur.

 

[yesimgurol]

Ekteki dosyamda kritik seviye altına düşenler isimli çalışma sayfasında açıklama yapmaya çalıştım.farklı bir konu ise yeni bir konu ile açarım.Bakma imkanınız olursa mutlu olurum.En azından fikrinizi almak isterim.

 

[yesimgurol]

Acaba yeni bir konu mu açsam:-(

 

[asi_kral]

Ekteki dosyamda kritik seviye altına düşenler isimli çalışma sayfasında açıklama yapmaya çalıştım.farklı bir konu ise yeni bir konu ile açarım.Bakma imkanınız olursa mutlu olurum.En azından fikrinizi almak isterim.

Merhaba

KRİTİK SEVİYE ALTINA DÜŞENLER

Bu sayfanın kod bölümüne

Option Explicit
Private Sub Worksheet_Activate()
'Konu       :   Kritik Seviyedekiler Aktar
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Worksheet, kral As Long, a As Long
Set asi = Sheets("DEPO DURUM LİSTESİ")
Range("A4:D" & Rows.Count).ClearContents
a = 4
For kral = 4 To asi.Range("A" & Rows.Count).End(xlUp).Row
If asi.Cells(kral, "K") > asi.Cells(kral, "J") Then
Cells(a, "A") = a - 3
Cells(a, "B") = asi.Cells(kral, "B")
Cells(a, "C") = asi.Cells(kral, "J")
Cells(a, "D") = asi.Cells(kral, "H")
a = a + 1: End If: Next
MsgBox "Toplam " & a - 4 & " Kritik Seviyedeki Kayıt" & _
" Aktardım", vbInformation, "asi_kral_1967"
End Sub

Bu kodu kopyalayın ve deneyin.
Dosyanız ekte.

 

[yesimgurol]

Sayın, asi_kral_1967 ; müthişsiniz...Çok teşekkür ederim.Mükemmel olmuş.Emeğinize sağlık...İnanın çok mutlu oldum.Bu kadarını beklemiyordum,tam istediğim gibi olmuş.İyi çalışmalar dilerim.

 

[asi_kral]

Sayın, asi_kral_1967 ; müthişsiniz...Çok teşekkür ederim.Mükemmel olmuş.Emeğinize sağlık...İnanın çok mutlu oldum.Bu kadarını beklemiyordum,tam istediğim gibi olmuş.İyi çalışmalar dilerim.

Kolay Gelsin.

 

[assenucler]

Sayı asi_kral_1967;


Üstadım çözümlerinizle bizlere eğitici ve yol gösterici oluyorsunuz. Sağ olun var olun...

Sevgi ve saygılar.

 

[asi_kral]

Sayı asi_kral_1967;


Üstadım çözümlerinizle bizlere eğitici ve yol gösterici oluyorsunuz. Sağ olun var olun...

Sevgi ve saygılar.

Kolay Gelsin.