Istediğim hücredeki bilgilerin değişmesi

[MURATSONMEZ03]

Merhaba arkadaşlar ekteki dosyamda açıkladım durumu ayın 2 si 16 sı 25 26 27 28 29 30 un daki s1 yazan hücreler üi yazsın istiyorum ;
değiştir makrosu ile değiştirdiğimde hepsi değişiyor hepsini değiştirmeden sadece yazdığım hücreleri değiştirebilirmiyim.

 

[vardar07]

Buyurun.

Sub degistir()
For Each veri In Sheets("Rapor").Range("E3:AJ8")
If veri <> "" And veri = "[COLOR="red"][B]S1[/B][/COLOR]" Then
Sheets("Rapor").Cells(veri.Row, veri.Column) = "[COLOR="Red"][B]Üİ[/B][/COLOR]"
End If
Next
End Sub

 

[MURATSONMEZ03]

Günaydınlar herkese;
Hayırlı işler bol kazançlar iyi çalışmalar.

Teşekkür ederim vardar07 değiştir makrosunu sadece istediğimiz sutunlarda kullanabilirmiyim ? Orada değişmemesi gereken s1 lerde var sadece belirli tarihtekileri değiştirmem gerekiyor.

 

[vardar07]

Değiştirebileceğiniz yerler mavili yer günler için, kırmızılı yerler kriterler(S1, Üİ) dir.

Sub degistir()
gun = Array([COLOR="Blue"][B]2, 16, 25, 26, 27, 28, 29, 30[/B][/COLOR])
deg = [COLOR="red"][B]"S1"[/B][/COLOR]
son = WorksheetFunction.CountA(Range("A:A")) + 1
sut = Cells(2, Columns.Count).End(1).Column
For i = 5 To sut
If Cells(2, i) <> "" And Cells(2, i) = gun(a) Then
For m = 3 To son
If Trim(Cells(m, i)) = deg Then
Sheets("Rapor").Cells(m, i) = [COLOR="red"][B]"Üİ"[/B][/COLOR]
End If
Next
a = a + 1
End If
Next[COLOR="Blue"][/COLOR]
End Sub

 

[MURATSONMEZ03]

Merhabalar
RUN TIME ERROR ='9'
SUB SCRİPT OUT OF RANGE
Diye hata veriyor

 

[ismailozev]

http://balikoltada.tr.gg/yard%26%23305%3Bm-edin.htmarkadaşlar ne yapacağımı bilmiyorum bana yardım edermisiniz ekte açıklamam var böyle olmadı galiba konpanzasyon takibi yapıyorum aktif değerler indüktif değerler ve kapasitif değerler arasında iki indüktif değerin farkını iki aktif değer farkını bölüyorm sonuç 20% den büyük ise yazının rengini kırmızı olması lazım düşükse yazı rengi yeşil olmalı mesela =(e5-e4)/(d5-d4)yazdığım yer h6 g6 da 20 yazdım işte buradaki azalan veya çovalan durumunda kırmızı veya yeşil yazı olmalı.

 

[MURATSONMEZ03]

Sayın ismail özev senin yeni konu açman veya başka konularda arama yapman gerekiyor benim açtığım konu ile senin konun arasında fark çok ,
sen excel dosyası şeklinde dosya upload etmen gerekir diğer türlü kimse yardımcı olamaz senin yapman gereken koşullu biçimlendirme ; burada ise benim konum değiştir makrosu .

 

[vardar07]

Merhabalar
RUN TIME ERROR ='9'
SUB SCRİPT OUT OF RANGE
Diye hata veriyor

Bende hata vermiyor. Sizdeki dosya yapısı farklı ise olabilir. Kullanacağınız dosyanın son halini eklerseniz bir bakalım.

 

[MURATSONMEZ03]

Sayın vardar07 hatayı çözdüm dosyadan kaynaklı sorunmuş teşekkürler.