koşullu satır taşıma

[lepricon]

Arkadaşlar öncelikle herkese iyi günler iyi çalışmalar dilerim.
benim, bana göre büyük, işi bilenler için küçük olduğunu düşündüğüm bir sorum var

elimde bir excel tablosu var. Bu tablonun A sütunundaki hücreli dolu olan satırları komple sayfa2 ye taşımasını istiyorum.
Şimdiden teşekkür ederim
tekrardan iyi günler...

 

[Necdet]

Merhaba,

Tüm sayfayı seçip ikinci sayfaya kopyalayın.
2. Sayfada :

• A sütununu seçin
• F5
• Özel
• Boşluklar
• Tamam
• Sağ Klik
• Sil
• Tüm Satır

 

[lepricon]

Necdet Bey cevabınız için teşekkür ederim, ancak benim istediğim daha ziyade işlem yaptığım anda kendiliğinden o satırı ikinci sayfaya atması şeklinde. Yine de verdiğiniz bilgi için teşekkür ederim

 

[Necdet]

Merhaba,

Sorunuzdan pek öyle anlaşılmıyordu, hala da anlaşılmıyor.
Satır kaç sütundan oluşuyor, son sütun yazıldığında mı otomatik aktarılacak, yoksa aktarım sizin kontrolünüzde mi olacak?

Bu tür soruları yanıtlamazsanız ezbere iş yapmak boşa kürek çekmekle aynı anlama gelir.

 

[lepricon]

haklısınız Necdet Bey
sorumu netleştirerek tekrar edeyim.
a sütunları boş olan bir tablom var. birinci satırda başlıklar olduğu için değerlerim 2. satırdan başlıyor
a2 hücresine herhangi bir değer yazıldığı anda 2. satırı komple sayfa2 ye (1. veya 2. satıra) yapıştırsın. aynı şekilde boş olan a15 hücresine bir değer yazdığımda 15. satırı sayfa2 deki sıradaki satıra yapıştırsın
(sütun sayısı önemli değil çünkü koşul gerektiren (dolu olması istenen a hücresi) hücrenin olduğu satır komple taşınsın istiyorum.)

ve bu işlemi o hücreye değer yazıldığı anda otomatik olacak şekilde yapmak istiyorum
yardımcı olabilirseniz sevinirim
şimdiden teşekkürler

 

[Necdet]

Merhaba,

E birde örnek tablo eklerseniz, size destek çıkacak arkadaş bir de tablo hazırlamak zorunda kalmasın.

 

[CONANFORCE]

aşağıdaki formülü sayfa iki deki a1 veya a2 hücresine (nerden başlamak istiyorsan 2. sayfaya o sütuna ) uygula
hücre kulbundan çekip kopyalama yaparsan sağa veya aşağı doğru formül otomatik çeker. iyi çalışmalar

=EĞER(Sayfa1!A2="";"";Sayfa1!A2)

 

[lepricon]

örnek olacak dosyayı ekledim
yardım ederseniz sevinirim

 

[lepricon]

sayın conanforce yardımınız için teşekkür ederim ama şöyle bir sıkıntı var
a2 hücresi boşsa b2, c2, d2..... yi de taşımasın istiyorum
sizin işlevinizle sadece eşiti olan hücreye bakıyor
maalesefki işime yaramadı
yine de teşekkür ederim
ayrıca benim amacım bu işlemi makro ile çözebilmek

 

[Necdet]

Merhaba,

Aşağıdaki kodları sipariş sayfasının kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [K:K]) Is Nothing Then Exit Sub
If Target.Row < 5 Then Exit Sub
If Target = "" Then Exit Sub
Dim SonKol As Integer
Dim SonSat As Long
SonSat = Sheets("teslim edilen siparişler").[A65536].End(3).Row + 1
SonKol = [IV4].End(1).Column
Range(Cells(Target.Row, "A"), Cells(Target.Row, SonKol)).Copy _
        Sheets("teslim edilen siparişler").Range("A" & SonSat)
Son:
End Sub

 

[lepricon]

Necdet Hocam Ellerine sağlık;
çok küçük bir detayım kaldı yanlız soru olarak
ben formüldeki copy kısmını cut olarak kullandım. ancak şöyle yeni bir sorunum oluştu
sipariş sayfasından datalar diğer sayfaya aktarılıyor ancak sipariş sayfasındaki satır boş kalıyor
yani o satırıda otomatik olarak silmek mümkünmüdür?

 

[Necdet]

Merhaba,

Kodları dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [K:K]) Is Nothing Then Exit Sub
If Target.Row < 4 Then Exit Sub
If Target = "" Then Exit Sub
Dim SonKol As Integer
Dim SonSat As Long
Dim Sat As Long
Sat = Target.Row
SonSat = Sheets("teslim edilen siparişler").[A65536].End(3).Row + 1
SonKol = [IV4].End(1).Column
Application.EnableEvents = False
Range(Cells(Sat, "A"), Cells(Sat, SonKol)).Copy _
        Sheets("teslim edilen siparişler").Range("A" & SonSat)
Rows(Sat).Delete Shift:=xlUp
Application.EnableEvents = True
Son:
End Sub

 

[lepricon]

Necdet bey çok çok teşekkür ederim bütün sorunumu çözdünüz
iyi çalışmalar dilerim

 

[Necdet]

Rica ederim, iyi günlerde kullanınız.

 

[ugurcoskun]

kosullu kopyalama

yuklemıs oldugum ornekte monalisa E sutununda "0" olan satirlar haric sirasiyla
b2 result a ya e2 result b ye kopyalanmali ayni sekilde aktauburger ve storage icinde gecerli bu aktau burgerden c ve d sutununa storageden e ve f sutununa kopyalanmali..
Yardimlariniz icin simdiden tesekkur ederim

 

[AzulCielo]

koşullu kopyalama

merhabalar...

koşullu kopyalama.
mesela bir sütunda aylar diğer sütunda mahalleler diğer sütunda telefonlar
diğer sütunda adres var.
eğer mahalle a ise komple o sütunu excelde bulunan başka bir çalışma sayfasına kopyalamayı istiyorum.
yada eğer ocak ayı ise komple tüm bilgiler başka bir çalışma sayfasına kopyalansın istiyorum

şimdiden teşekkürler

 

[ortajin]

merhaba,
bugün tarihli satırları başka sayfaya taşımak istiyorum ve bir sonraki gün de eski tarihleri silip mevcut günün satırlarının kopyalamasını yaptırmak istiyorum. yardımlarınızı rica ederim.

 

[m.ensar]

necdet hocam bu kod farklı çalışma kitapları arasında uygulanabilir mi

 

[m.ensar]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [K:K]) Is Nothing Then Exit Sub
If Target.Row < 5 Then Exit Sub
If Target = "" Then Exit Sub
Dim SonKol As Integer
Dim SonSat As Long
SonSat = Sheets("teslim edilen siparişler").[A65536].End(3).Row + 1
SonKol = [IV4].End(1).Column
Range(Cells(Target.Row, "A"), Cells(Target.Row, SonKol)).Copy _
Sheets("teslim edilen siparişler").Range("A" & SonSat)
Son:
End Sub


siz hazırlamışsınız elinize sağlık farklı A çalışma kitabından B çalışma kitabına veri aktarımı için uyarlanabilir mi

 

[jakal007]

Merhaba,

Kodları dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [K:K]) Is Nothing Then Exit Sub
If Target.Row < 4 Then Exit Sub
If Target = "" Then Exit Sub
Dim SonKol As Integer
Dim SonSat As Long
Dim Sat As Long
Sat = Target.Row
SonSat = Sheets("teslim edilen siparişler").[A65536].End(3).Row + 1
SonKol = [IV4].End(1).Column
Application.EnableEvents = False
Range(Cells(Sat, "A"), Cells(Sat, SonKol)).Copy _
        Sheets("teslim edilen siparişler").Range("A" & SonSat)
Rows(Sat).Delete Shift:=xlUp
Application.EnableEvents = True
Son:
End Sub

Necdet Bey, bu işlemi çift tıklama olarak değilde, K sütununda aktif - pasif yazmasına göre nasıl uyarlayabiliriz.
K sütunundaki hücrelerden açılır pencere ile AKTİF/PASİF seçeneklerini kullanmak istiyorum. yardımcı olursanız çok sevinirim...