Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
İşin 10.000 satır için performans olayını bir tarafa bırakarak,
İNDİS - TOPLAMA işlevleri kullanarak Çok Koşul için Listedeki Sırasıyla ve Alfabetik Sıralı olarak Benzersizlerin bulunmasına örnek olsun....
Dosyanızı göremediğim için, tablo ile örnek...
Başlıklar : A1 : E1
Veriler : A2 : E79...
ListView1’in 1. sütunundaki her satır için, Bordro sayfasının D sütununda eşleşen bir veri varsa, o satırın rengini değiştirmek istediğinizi anlıyorum. İşte bu işlemi gerçekleştirecek VBA kodunun bir örneği:
Dim m As Integer
Dim listItem As ListItem
With Sheets("Bordro")
For m = 1 To...
Üstadım hakkını helal et, yanlış bilgi vermişim. Tablo aşağıdaki gibi boş satırlardaki formül veri olmayınca 0 yazmakta
Renk beyazlanacak satırlar E4,F4,G4,H4 Boş satır I4
E4
F4
G4
H4
I4
24800
187...
değerli arkadaşlar ben sorunumu anlatamadım muhtemelen. istediğim şey MACRO sayfasındaki 3,4,5,6........son satıra kadar olan A-CC sütunlarındaki verileri 1. satır A-CC sütunlarındaki veriler ile birleştirmek. sorun ise soldan sağa doğru 9 'arlı 9 grup olması aynı şekilde bu 9 grubun...
Sayfa adınızı güncelleyin.
Dikkat bu makro ilgili alanı sort yaparak hücrelerin yerini değiştirir. Size uygunsa kullanınız.
Not: Dosyanıza bakma imkanım yok.
Sub UygulaRangeC7CW600()
Dim ws As Worksheet
Dim veriAraligi As Range
' Çalışma sayfasını belirle
Set ws =...
Sub Duzenle()
Dim ws As Worksheet
Dim satir As Integer, sonDoluSuton As Integer
Dim mergeRange As Range
Dim ibare As String
' Çalışmak istediğiniz sayfa
Set ws = ThisWorkbook.Sheets("KAPAK") ' Sayfa adını güncelleyin
' Satırların birleştirileceği sütun...
Sub Test()
Dim ws As Worksheet
Dim satir21, satir22, satir23, satir24, satir25, satir26, satir27, satir28, satir29, satir30, satir31, satir32, sonDoluSuton As Integer
Dim birlesmisHucresi1, birlesmisHucresi2 As Range
' Çalışmak istediğiniz sayfa
Set ws =...
Merhabalar.. filtreleme ile ilgili bir sorum olacak. C sütunundan başlayıp CW sütununa kadar giden satır olarak ise 1000 satırlık verim var. (C7:CW1000) Yapmak istediğim ise aslında gelişmiş bir filtreleme benzeri bir şey yapabilmek sonrasında. Amacım ise mesela C sütununda en yüksek ilk 10...
Arkadaşlar B sütunundaki değerlere göre C,D,E,F sütunlarını otomatik yeşil ya da sarı ile boyamak istiyorum ancak koşullu biçimlendirmede birçok formül denedim olmadı.Birde satır sayısı çok olacağından dolayı tek yek boyamak mantıksız geldi. Mesela B2 deki içerik ASIL ise C,D,E,F sarı renk, EK...
Çok Değerli Excel Web Ailesine selamlar.
Benim sorum bir projeme entegre etmek istediğim bir özellik.Projemdeki aynı satır sütunların durumunu simultene ettim.Gereken Bütçe bölümündeki B1 deki renk koduyla uyuşan MAL-GİRİŞİ sekmesindeki verileri,Gereken Bütçe Sekmesine çekmek istiyorum...
Merhaba,
belli bir sütun-satır?
girilen rakam?
excel için genel tanımlar.
Daha açıklayıcı bilgi ve örnek dosya olsa sanırım çözüm bulabilirsiniz.
ChatGpt'ye sizin sorunuzu aynen sordum, aşağıdaki yanıtı aldım.
Excel'de VBA (Visual Basic for Applications) kullanarak belirli bir koşula göre...
Koşullu biçimlendirmede
=SATIR()=HÜCRE("sat") formülü ile ilgili satırı renklendirip
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Calculate
End Sub
ile renkli olmasını sağlıyorum ancak renk çıktılara da yansıyor. Sadece ekranda gözükip çıktılara yansımaması için ne...
Merhaba,
ekteki tabloda "ulaşılmak istenilen veri bölümü" diye belirttiğim verilerin binlerce satır uzunluğunda oluşturmam gerekiyor.
Özetle; Aynı ürünün ilgili ürünlerini (diğer alternatif renklerini) belirlememiz gerekiyor.
Yardımcı olursanız çok sevinirim, aksi taktirde hafta sonu manuel...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
sat = Target.Row
süt = Target.Column
If sat >= 1 And süt <= 200 Then
Dim Satır As Range, Sütun As Range
Set Satır = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 256)) '256 satıra kadar işlem yapar.
Set Sütun = Range(Cells(1...
Merhaba;
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
sat = Target.Row
süt = Target.Column
If sat >= 2 And süt <= 5 Then
Dim Satır As Range, Sütun As Range
Set Satır = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 256)) '256 satıra kadar işlem yapar.
Set Sütun =...
Merhaba;
Sayfanın kod bölümüne;
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Satır As Range, Sütun As Range
Set Satır = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 256)) '256 satıra kadar işlem yapar.
Set Sütun = Range(Cells(1, ActiveCell.Column)...
Merhaba arkadaşlar;
Ctrl + F ile arama yaptığımda bulunan satırın Hücre arka planını nasıl yeşil yapabilirim ?
- boş hücreye tıklatığımda yeşil renk devre dışı kalacaktır. Beyaz olacak yani
- Tekrar Ctrl + F yaptığımda mevcuttaki yeşil renk devre dışı kalacaktır. Beyaz olacaktır.
yardımcı...
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.