Renkli satıra (aktif) göre düşeyara

[xemdarx]

Merhaba,
Aktif olan satıra göre verilerin aktarılmasını sağlayabilir miyiz? Teşekkürler.

 

[xemdarx]

Lütfen yardımcı olunuz...

 

[YUSUF44]

Dosyanızda hücre seçtiğimde "object library bulunamadı" hatası veriyor. O nedenle ilgilenemedim.

 

[xemdarx]

İlgili dosyayı ekliyorum. Yardımcı olursanız sevinirim.

 

[YUSUF44]

Maalesef çözemedim. Dosya açıldığında "could not load library" hatası verdi ve excel dosyalarını gizledi ki bunu hiç istemem, hiçbir zaman anlamadım, neden exceli gizleme ihtiyacı duyulduğunu. Yardımcı olamadığım için üzgünüm.

 

[xemdarx]

Özür dileyerek tekrar yüklüyorum. Dosya bana ait değil. Buradan yola çıkarak düzenlemek istiyorum. Fakat desteğinize ihtiyacım var.Teşekkürler

 

[YUSUF44]

Yine hata verdi ancak sanırım istediğiniz aşağıdaki şekilde olur:

Öncelikle sayfadaki kodu aşağıdakiyle değiştirin:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
son = Cells(Rows.Count, "A").End(3).Row
If Intersect(Target, Range("A2:H" & son)) Is Nothing Then Exit Sub
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("condForm")
ws.Cells.ClearContents
ws.Range("A" & Target.Row & ":H" & Target.Row) = Target.Row
End Sub

S2 hücresinde aşağıdaki formülü kullanın ve sağındaki hücrelere kopyalayın, bunu sadece formülleri yapıştırarak yaparsanız hücre biçimi bozulmaz:

=DOLAYLI(ADRES(TOPLA(condForm!$A:$A);SÜTUN(A1);1;1;))

Sayfadaki seçili satırın sarı olması için yapılan koşullu biçimlendirme çalışmıyor. Çünkü koşullu biçimlendirmede ilk sırada olan "hücre doluysa yeşil yap" koşulu engel oluyor. Düzeltmek için koşullu biçimlendirmede sarı ile ilgili olanı ilk sıraya çıkarmanız gerekiyor.

 

[xemdarx]

İstediğimi zahmet edip yaptınız.Teşekkürler