Arkadaşlar mesela F10:K100 aralığında geçerli olmak üzere,
örneğin h15 hücresini fare ile tek tıklayarak seçtiğimde H15 hücresinin bir renk, H15 hücresinin olduğu sütun ile satırın da F10:K100 aralığına kalmak üzere ayrı ayrı renklenmesini istiyorum. Nasıl yaparız?
Sub Kaydet() 'Prosedür başlığı. Diğer bir deyişle Kod başlığı, Makro başlığı, Harf ile başlamak zorunda.
Dim syf As Worksheet 'dim değimi bir değişken tanımlandığını gösterir. "syf" değişkenimizin adıdır. harf ile başlaması gerekir. "As" dir eki gibi düşünebilirsiniz. Worksheet değişkenin...
Arkadaşlar Merhaba tekrardan,
A5 Hücresi düşünün Mavi renk dolgusu var. Ben eğer içine şarta bağlarken bu mavi renk diye nasıl tanıtabilirim."Formulu aşagıya doğru çekerken mavı dolgulu hücreye gelinde bu mavi dolgu diye tanıyabilsin" 1200 satır var.İçlerinde onlarca farklı şekilde mavi/kırmızı...
Günaydın, Örnek-2'de örnek var fakat biraz sıkıntılı :)
Tekrar düzenleyip açıklayarak Örnek-3 atıyorum.
BURADAN sayfasındaki gibi verilerim mevcut RENK kısmındaki sayılara göre filtre oluşturuyorum (sadece 2 yazanlar kalacak).
8 satır veri kalıyor elimizde. Buradaki verileri BURAYA sayfasına...
VB biliyorsanız ;
For / next döngüsü ile alt satır, üst satır eşitliği, farklılığı ve alt satırdaki boş olma koşullarına(if /else ile) göre "renk" belirleyebilirsiniz.
Merhaba,
Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.
Soyadı büyük harfe çevirdiği gibi ek olarak koyu ve renk de verdirebilirsiniz.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [D:D]) Is Nothing Or Target.Row < 2 Or...
Eklediğiniz dosya bozulmuş.
Koşullu Biçimlendirme ile istediğinizi yapabilirsiniz.
Koşullu biçimlendirme yapılacak alanı B4:CV50 seçin,
Üst menüden Koşullu Biçimlendirme/Yeni Biçimlendirme Kuralı / Biçimlendirilecek Hücreleri Belirlemek için Formül Kullan seçin,
Sırayla 3 defa Formül ve Renk...
Merhaba.
Bence pratik olanı; H sütununa aşağıdaki ilk formül ile numara verdirip tüm veri alanını tek bir renk ile boyadıktan sonra,
H sütunundaki formül sonucunun TEKMİ/ÇİFTMİ durumuna göre
(Ms.Excel versiyonuna göre sorun çıkmaması için TEK/ÇİFT durumunu TEKMİ/ÇİFTMİ işlevleri yerine MOD...
Sütunlar için örnek:
Sayfada M sütunundan , en son sütun olan XFD sütununa kadar hepsini gizlemek için:
Sayfada sütun harfi olarak gözüken "M" harfini tıklayın. M sütunu hepsi seçili olacaktır (Gri renk)
M sütunu seçili iken, klavyede sol elinizle "Shift" tuşuna basın, basılı tutarak diğer...
Sayın turist, yardımınız ve desteğiniz için teşekkürler. Çözümünüz gerçekten harika olmuş. Ben bir sürü aralık belirleyip yazmaya çalışırken siz olayı iki hücre yazarak çözmüşsünüz. Bizim dosya sayenizde bambaşka bir boyuta taşınmış oldu :) Hem hücre boyuyor, hem tıklamasını istemediğimiz...
Kodu şu şekilde deneyin.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B2:AD38")) Is Nothing Then
If Target.Interior.Color = vbWhite Then
Range("A" & Target.Row).Select
MsgBox ("bu kısımda işaretleme yapılamaz"), vbCritical
End If
End If
End Sub...
Abi merhaba, çok teşekkürler öncelike. Bu kod dizilimi şu anda metodoloji olarak çok iyi çalışıyor. :)
Tek sorun; HTML'den yazısını getirmesi gerekirken, bunun yerine yazısını getiriyor.
yazısı normalde html kodlamasında çıkmıyor. Ne zamanki sisteme sorgulama yapılırsa sayfada bu yazı...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.