Yazı rengine göre değer

[pylor]

MERHABA ARKADAŞLAR SİZ DEĞERLİ FORM UZMANLARININ YARDIMLARI İLE KENDİME BİR ÇALIŞMA KİTABI HAZIRLIYORUM BÜYÜK ÖLÇÜDE BİTTİ AMA BİRKAÇ EKSİĞİM VAR YAPMAK İSTEDİĞİM ŞEYİ KISACA ANLATIM

ÖRNEK:
SAYFA1 de A1 HÜCRESİNDEKİ YAZININ RENGİ KIRMIZI İSE
SAYFA2 de A1 HÜCRESİNE ”P”

SAYFA1 de A1 HÜCRESİNDEKİ YAZININ RENGİ SARI İSE
SAYFA2 de A1 HÜCRESİNE ”A”

YAZMASINI İSTİYORUM EKLİ DOSYAMDA DETAYLAR MEVCUT YARDIMLARINIZ İÇİN ŞİMDİDEN TEŞEKKÜR EDERİM

 

[pylor]

Tarifte sayfa1 ve sayfa2 diye belirttiğim sayfa isimleri dosyamda veri_tabanı ve data isimleri ile isimlendirilmiştir

 

[Merhum İdris SERDAR]

MERHABA ARKADAŞLAR SİZ DEĞERLİ FORM UZMANLARININ YARDIMLARI İLE KENDİME BİR ÇALIŞMA KİTABI HAZIRLIYORUM BÜYÜK ÖLÇÜDE BİTTİ AMA BİRKAÇ EKSİĞİM VAR YAPMAK İSTEDİĞİM ŞEYİ KISACA ANLATIM

ÖRNEK:
SAYFA1 de A1 HÜCRESİNDEKİ YAZININ RENGİ KIRMIZI İSE
SAYFA2 de A1 HÜCRESİNE ”P”

SAYFA1 de A1 HÜCRESİNDEKİ YAZININ RENGİ SARI İSE
SAYFA2 de A1 HÜCRESİNE ”A”

YAZMASINI İSTİYORUM EKLİ DOSYAMDA DETAYLAR MEVCUT YARDIMLARINIZ İÇİN ŞİMDİDEN TEŞEKKÜR EDERİM

.

Dosyanız ekte.

.

 

[pylor]

Sayın yurttaş ilgi ve alakanıza teşekkür ederim çok güzel oldu

 

[pylor]

Sayın yurttaş dosyayı detaylı bir şekide inceledim ve şöyle bişey var hücre aktifken yazıya renk verirseniz kod çalışıyor ama hücre içinden çıkıp hüçreye tek tıklayıp yazıya renk verdiğimde kod çalışmıyor bu bir sorunmudur yoksa kod sadece hücre aktifken yazıya renk verildiğindemi çalışıyor. Dosyayı tekrar yüklimmi yoksa diğer dosya ile işlem yaparmsınız

 

[Merhum İdris SERDAR]

Sayın yurttaş dosyayı detaylı bir şekide inceledim ve şöyle bişey var hücre aktifken yazıya renk verirseniz kod çalışıyor ama hücre içinden çıkıp hüçreye tek tıklayıp yazıya renk verdiğimde kod çalışmıyor bu bir sorunmudur yoksa kod sadece hücre aktifken yazıya renk verildiğindemi çalışıyor. Dosyayı tekrar yüklimmi yoksa diğer dosya ile işlem yaparmsınız

.

Pek anladığımı sanmıyorum.

Dosyanızda uyguladığı Kullanıcı Tanımlı Fonksondur. KTF'lerin çalışması için tetiklenmeleri gerekir. Yani formülü Formül çubuğunda tekrar ENTER ile girmek gerekir.

.

 

[pylor]

şöyle oluyo metni yazdık enter'e basmadan yada başka bir hüçreye tıklamadan yani hüçre içinden çıkmadan yazıya renk verip enter'e bastığımda fonksiyon işliyor ama yazıyı yazdım enter'e bastım hücreden çıktım sonra yazı rengini değiştirmek için hücreye bir defa tıkladım sonra renk verdim işte o zaman fonksiyon çalışmıyor birde hücre içinden çıkmadan yazı metin yada harf ise yazı renkleniyor ama yazılan rakam ise hücreden çıkmadan rakam renklenmiyor bunu başka bir şekilde yapmak mümkünmü acaba

 

[Merhum İdris SERDAR]

.

Hücrenin renk değiştirmesi veya hüre içeriğinin renk değiştirmesi makroyu tetiklemiyor.

Mecburen bu olaydan sonra yo formülü enterleyeceksiniz veya bir hücrede çift tıklayacaksınız.

.

 

[kan-nas]

Böyle bir şey işinize yarar mı.?

Sub Düğme1_Tıklat()
a = 1
b = 1
For i = 1 To Range("a65536").End(3).Row

If Cells(i, 1).Font.Color = vbRed Then
Sheets("Sayfa2").Cells(a, 1).Value = "p"
a = a + 1
End If
If Cells(i, 1).Font.Color = vbYellow Then
Sheets("Sayfa2").Cells(b, 2).Value = "a"
b = b + 1
End If
Next i

End Sub

 

[pylor]

sayın yurttaş ve kan_nas değerli bilgilerinizden dolayı çok ama çok teşekkür ederim ikinizde sağolun