verileri sıralama

[Erdal]

Arkadaşlar merhaba
öncelikle herkesin 30 Ağustos zafer bayramı kutlu olsun.
Bir hakediş programı hazırlıyorum ama bir sorunun üstesinden gelemedim
örneksiz açıklaması biraz zor olduğu için örnek yolluyorum. Eğer yardım edebilirseniz çok memmun olurum. İlginiz için şimdiden teşekkürler

 

[AS3434]

Sayfanın Kod Sayfasına aşağıdaki kodları yazın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b3:b33]) Is Nothing Then Exit Sub
[c3:c33].ClearContents
For x = 3 To 33
f = Cells(x, 2).Value
If f >= 1 Then Range("c" & f + 2) = f
Next
End Sub

 

[Erdal]

sayın AS3434
ilginize teşekkür ederim tam istediğim gibi olmuş fakat ben bunu uygulamama uyarlamama rağmen çalıştıramadım. o yüzden uygulamamı gönderiyorum yardım edebilirseniz çok sevinirim şimdiden teşekkürler

 

[Ali]

Sn somer istediğiniz ekteki gibi birşeymi?

B3 hücresine sayı yazarak deneyiniz.

 

[AS3434]

Dosyanız ekte

 

[Erdal]

sayın AS3434
şöyle bir problem meydana geldi G sütunu A10 hücresine bağlı, A10 hücresindeki değeri değiştirdiğimde H54-H84 aralığı kendini güncellemiyor. Bu konuda yardımcı olabilirmisiniz.
Sayın Ali
ilginiz için çok teşekkür ederim. Sizin çözümünüz sorunumu tam olarak çözdü. Ama sayın As3434 sorunumu kod yazarak çözdü. Benimde kod konusunda pek fazla bir bilgim olmadığı için Sayın AS3434 'e problemimin tam olarak çözülmesi için sorular soruyorum
Kod yoluylada problemin geri kalan kısmınıda halledebilirsem çok memnun kalacağım
İlginiz için ikinizede teşekkürler

 

[AS3434]

Sayın somer

Orjinal dosyadaki, G sütununuzda ki formülü görmemişim. G sütununa elle veri girince formüller silinmiş.

Hata vermesinin nedeni, G sütununu metin olarak görüyor.
G55 hücresindeki formülünüzü şöyle düzeltin.

=E&#286;ER($F$53<>F55;"";E55*1)

ve a&#351;a&#287;&#305;ya &#231;ekerek kopyalay&#305;n.

veya kodlar&#305; &#351;&#246;yle de&#287;i&#351;tirin.

If f >= 1 Then Range("h" & f + 53) = f

olan yeri

If Not f = "" Then Range("h" & f + 53) = f

yap&#305;n.

 

[Erdal]

say&#305;n AS3434
her iki dedi&#287;inizide denedim ama A10 h&#252;cresine yeni de&#287;er girdi&#287;imde h s&#252;tunu kendini g&#252;ncellemiyor. Sadece imle&#231;; G54-G84 aral&#305;&#287;&#305;ndaki herhangi bir h&#252;crenin form&#252;l &#231;ubu&#287;undayken enter yaparsam kendini g&#252;ncelliyor. Sizinde kafan&#305;z&#305; a&#287;r&#305;tt&#305;m ama bu problemde yardumc&#305; olabilirmisiniz acaba? Te&#351;ekk&#252;rler iyi ak&#351;amlar.

 

[AS3434]

Sorunu şimdi anladım. Ben hep seçili hücrelerde çalıştığım için anlamamıştım.

Güncellememe sebebi kodlardaki kırmızı alan. Çünkü, Kodlar sadece o alan seçilip değiştiği zaman çalışıyor.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [[COLOR=red]g54:g84[/COLOR]]) Is Nothing Then Exit Sub
On Error Resume Next

Kodları öyle düzeltin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a3:a51,g54:g84]) Is Nothing Then Exit Sub
On Error Resume Next
[h54:h84].ClearContents
For x = 54 To 84
f = Cells(x, 7).Value
If f >= 1 Then Range("h" & f + 53) = f
Next
End Sub

Bu sefer umarım istediğiniz gibi olur.

Sadece A10 hücresi değişince çalışan kodlar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a10]) Is Nothing Then Exit Sub
On Error Resume Next
[h54:h84].ClearContents
For x = 54 To 84
f = Cells(x, 7).Value
If f >= 1 Then Range("h" & f + 53) = f
Next
End Sub

 

[Erdal]

say&#305;n AS3434
&#351;imdi oldu. &#304;lgi ve alakan&#305;z i&#231;in &#231;ok te&#351;ekk&#252;r ederim. &#304;yi geceler.