Hücreye Göre, Satırı Başka Bir Satıra Taşımak

[liviera]

merhaba arkadaşlar. Forumda yeniyim konu daha önce açıldıysa kusuruma bakamayın aradım bulamadım. nasıl arayacağımı da bilemedim.

konu şu.
ürün imalatı için bir takip çizelgesi hazırladım.
sipariş sayfasında ürün durumunu gösteren hücreye bilgi girdiğimde makro yardımıyla imalatta olanlar hazır olanlar beklemde olanlar vs hepsi ayrı ayrı sayfalarda fotoğraflarıyla birlikte görünüyor.

sorun şu ki, teslim edilen siparişler ana sipariş sayfasında kaldığı için bir noktadan sonra sorun yaratmaya başladı.

isteğim;
tablom A1 sütunundan başlıyor ve L1 sütununda bitiyor.
K1 sütununda "TESLİM" yazıldığında satırın komple listenin sonuna taşınması.

sayfada yazılmış bir makro bulunmakta. onunda çalışmasını engellememek gerekiyor.
tabi alta yeni sipariş girdiğimde durum ne olur ona kafam basmıyor

yardımlarınız için teşekkür ederim.

 

[Muzaffer Ali]

Çalıştığınız dosyayı paylaşmalı ve üzerinde sormalısınız.
Bu şekilde net anlaşılmıyor.

 

[muysun35]

Dosya barındırıcı sitelerden birine örnek dosyanızı eklerseniz hızlı ve kolay yardım alabilirsiniz

 

[muysun35]

Teslim edilen siparişleri farklı bir sayfaya transfer etmek sorunu çözer bence

 

[liviera]

Teslim edilen siparişleri farklı bir sayfaya transfer etmek sorunu çözer bence

Dosyayı yükleyeceğim.
Şuanda teslim edilen ürünler başka sayfaya kopyalanıyor ancak ana sayfadaki silindiğinde orası da yok oluyor.
ürünlerle ilgili 11 farklı durumu takip ediyorum. hepsi ayrı sekmelerde toplanıyor.
ana sayfada da genel durumu görüyorum. Tek derdim ana sayfa düzeni

 

[liviera]

Çalıştığınız dosyayı paylaşmalı ve üzerinde sormalısınız.
Bu şekilde net anlaşılmıyor.

İndir siparisler1

Dosyayı indir siparisler1

dosya.co

doya ekli yardımcı olursanız sevinirim

 

[Muzaffer Ali]

Zannediyorum ki "SİPARİŞ_SAYFASI" ndan bahsediyorsunuz.
Bu sayfanın "K" sütununu Alfabetik olarak sıraladığınızda istediğiniz şey gerçekleşiyor.
Teslim seçtikten yada yeni sipariş girdikten sonra K sütununu Filtre kısmından sırlama yapın.
Herhangi bir kod yazmaya gerek yok.

 

[liviera]

arkadaşlar ben bi halt yedim. masa üstündeki dosyanın kısa yol olduğunu unutup onu kopyalayıp buraya yüklemek için yaptığım değişiklikleri orjinal dosya üzerinden yapmışım.

daha önceki kaydedilmiş dosyaya nasıl ulaşabilirim var mı bir yolu

 

[liviera]

önceki sürümler seçeneğine baktım önceki sürüm seçeneği yok

 

[Muzaffer Ali]

Şu konuya bak.

Buraya tıklat.

 

[muysun35]

Private Sub temizle()
Dim BUL As Range
Set BUL = Sheets("SİPARİŞ_SAYFASI").Range("K:K").Find("TESLİM", LookAt:=xlWhole)
If Not BUL Is Nothing Then
Sheets("SİPARİŞ_SAYFASI").Rows(BUL.Row).Delete Shift:=xlUp
End If
End Sub

koduyla teslim durumuna getirdiğiniz satırlar silinir.

 

[liviera]

teşekkür ederim arkadaşlar. listeyi kaybettim yeniden oluşturuyorum
alfabetik sıralamak hiç aklıma gelmemişti ara sıra alfebedik sıralama yapmak işimi görecek sanırım. sipariş tarihleri karışacak ama o kadarına idare edicem artık.

teslim edilenleri kaybetmek istemiyorum o nedenle bunu kullanıcam sanırım.

iyi forumlar