Onay kutusuna tıklayınca, satır sil başka yere yapıştır.

[umutozkans]

Arkadaşlar, ekteki dosyada ilgili satırdaki onay kutusuna tıklayınca, o onay kutusunun olduğu satır silinip bitmişler sheet'ine yapışmalı.
Bu mümkün müdür ?

 

[unalysf]

arkadaşım bende aynı soruyu arıyordum cevabı buldum sandım ben de cevap bekliyorum diğer arkadaşlardan

 

[umutozkans]

Şimdi ben de tam sizin durumunuza düştüm

 

[halit3]

Arkadaşlar, ekteki dosyada ilgili satırdaki onay kutusuna tıklayınca, o onay kutusunun olduğu satır silinip bitmişler sheet'ine yapışmalı.
Bu mümkün müdür ?

Örnek dosyada işleme başlamadan önce bir defaya maksus nesneleri diz düğmesine tıkladıktan sonra seçenek düğmelerinden seçim yaparak verileri aktar düğmesine tıklamak yeterli olacaktır.

 

[umutozkans]

Teşekkür ediyorum elinize sağlık çok güzel olmuş ama ben daha basit birşey istemiştim.

Onay kutusuna tıklayınca onay kutusunun olduğu satır silinip "bitmiş sheet'ine" yapışacak.
Amaç: Onaylanmış işleri "yapılacaklar sheet'inde " tutmamak !

 

[halit3]

Teşekkür ediyorum elinize sağlık çok güzel olmuş ama ben daha basit birşey istemiştim.

Onay kutusuna tıklayınca onay kutusunun olduğu satır silinip "bitmiş sheet'ine" yapışacak.
Amaç: Onaylanmış işleri "yapılacaklar sheet'inde " tutmamak !

Vermiş olduğunuz örnek dosya ve açıklamaları yetersiz gördüğümden genel bir şeyler yapmaya çalıştım.

Şimdi bu durumda bir sürü soru sormak gerekiyor.

1-onay kutusu iki adetle sınırlımı kalacak.?
2-eğer onay kutusu ikiden fazla olacaksa her nesne için ayrı kod yazmak gerekecektir.
3-silinen hücrelere ait sadece hücrenin içimi silinecek yoksa satırın tamamımı silinecek eğer satır tamamen silinecekse onay kutuları kayar ve üst üste gelir.
4-onay kutuları mutlaka tam satıra ait hücrede olmalı sizin örnek dosyanızda onay kutuları hücrenin tam ortasında değil ve kodlar bu durumu algılıyamıyor.
5-nesneleri diz komut düğmesi onun için yapılmıştır.

 

[umutozkans]

Ne demek istediğiniz şimdi daha iyi anladım. Şu durumda:

1. Onay kutusu, açılan her satır için olacak. Çünkü ilgili işe onay verilip verilmediğini gösteriyor.(muhakkak olmalı)

3. Satır tamamen silinmeli. Ama problem oluyorsa hücre içeriği silinse de yeterli olacaktır.
4. Onay kutusu bir hücreye bağlantı verebilir. O hücre değeri onay kutusunun durumuna göre "DOĞRU" veya "YANLIŞ" oluyor. Buraya başvuru yapılarak belki bir çözüm olabilir.

İş sandığımdan da zormuş. İlginiz için teşekkür ediyorum !

 

[halit3]

Ne demek istediğiniz şimdi daha iyi anladım. Şu durumda:

1. Onay kutusu, açılan her satır için olacak. Çünkü ilgili işe onay verilip verilmediğini gösteriyor.(muhakkak olmalı)

3. Satır tamamen silinmeli. Ama problem oluyorsa hücre içeriği silinse de yeterli olacaktır.
4. Onay kutusu bir hücreye bağlantı verebilir. O hücre değeri onay kutusunun durumuna göre "DOĞRU" veya "YANLIŞ" oluyor. Buraya başvuru yapılarak belki bir çözüm olabilir.

İş sandığımdan da zormuş. İlginiz için teşekkür ediyorum !

Ucu belli olamayn bir işe benziyor
o zaman şöyle yapalım.

1-nesnelerin hepsini silelim.
2-bir komut düğmesiyle c sutünu kadar onay kutusu oluşturalım.
3-silinecek satırlara ait onay kutularını işaretliyerek aktarım yapalım ve satırlar silinsin.

bu döngü içinde işleminiz daha sağlıklı olacaktır.

 

[umutozkans]

Aslında istediğim basit ve net. Onaylanmış işleri / satırları "bitmiş sheet'inden" kaldırmak.

Ama uygulamada biraz zor oluyor anladığım kadarı ile.

Belirttiğim gibi iş çok zor olacak ise satır silmek yerine hücre içeriği de silinebilir.

 

[halit3]

Size bir örnek dosya ekliyorum.
işlem akışı
1-nesneleri sil düğmesine tıkla
2-nesneleri oluştur düğmesine tıkla
3-ilgili seçenek düğmelerini işaretle
4-verileri aktar düğmesine tıkla


Not: Burada yapılan öncelikle nesnelerin ilgili hücrelerde olmasını sağlamak ve satırlar silinince yeniden nesneleri düzene koymak.

Bu uygulama ile birden fazla satırlardada işlem yapabilirsiniz.

 

[umutozkans]

Çok teşekkürler ama iş giderek karışık hale geliyor. Ayrıca verileri aktar dedikten sonra nesnelr yok ouyor. Oluştur dediğimde silinen tekrar geliyor. Bug var !

Şöyle basit birşey yapamazmıyız. Ekte belirttim !

 

[halit3]

Çok teşekkürler ama iş giderek karışık hale geliyor. Ayrıca verileri aktar dedikten sonra nesnelr yok ouyor. Oluştur dediğimde silinen tekrar geliyor. Bug var !

Şöyle basit birşey yapamazmıyız. Ekte belirttim !

Kod

Sub aktar()
sat = Worksheets("Bitmiş").Cells(Rows.Count, "B").End(3).Row + 1
Set s2 = Sheets("Bitmiş")
Set s1 = Sheets("Yapılacaklar")
For r = 2 To s1.Cells(Rows.Count, "n").End(3).Row
If s1.Cells(r, "n").Value = True Then
If s1.Cells(r, "c").Value <> "" Then
s2.Cells(sat, "b").Value = s1.Cells(r, "b").Value
s2.Cells(sat, "c").Value = s1.Cells(r, "c").Value
s2.Cells(sat, "d").Value = s1.Cells(r, "d").Value
s2.Cells(sat, "e").Value = s1.Cells(r, "e").Value
s2.Cells(sat, "f").Value = s1.Cells(r, "f").Value
s2.Cells(sat, "g").Value = s1.Cells(r, "g").Value
s2.Cells(sat, "A").Value = sat - 1
s1.Cells(r, "b").Value = ""
s1.Cells(r, "c").Value = ""
s1.Cells(r, "d").Value = ""
s1.Cells(r, "e").Value = ""
s1.Cells(r, "f").Value = ""
s1.Cells(r, "g").Value = ""
sat = sat + 1
End If
End If
Next r
MsgBox "işlem tamam ", vbCritical, "U Y A R I"
End Sub

 

[umutozkans]

Kodu dosyaya gömdüm ama çalışmıyor !

 

[halit3]

Kodu dosyaya gömdüm ama çalışmıyor !

Dosyanız burada

 

[umutozkans]

Teşekkürler.
Fakat burada satırlardaki işler arttıkça, yeni onay kutuları koydukça, yeni onay kutuları çalışmıyor.

Yani 3. satıra bir iş girdiğimde karşınıda onay kutusu koyuyorum. Hücre bağlantısını da "n" sütünuna veriyorum ama çalışmıyor.

 

[halit3]

Teşekkürler.
Fakat burada satırlardaki işler arttıkça, yeni onay kutuları koydukça, yeni onay kutuları çalışmıyor.

Yani 3. satıra bir iş girdiğimde karşınıda onay kutusu koyuyorum. Hücre bağlantısını da "n" sütünuna veriyorum ama çalışmıyor.

Aslında 10. mesajdaki dosyadaki kodlar işinizi gayet güzel görmekte ama nedense oradaki kodları kullanmak istemiyorsunuz.

Ben şahsen cevap vermekten kaçınmıştım sorunuza daha şimdiden 15 mesaj etmiş ama hiç bir yol ilerlememişiz.ve bu mesajlaşma uzayıp gidecek gibi gözüküyor.


14 nolu mesajdaki dosyadaki Kodu çalıştırırken c sutündaki hücrede mutlaka veri olmalı ve n sutünda DOĞRU değeri olmalı.

 

[umutozkans]

Tamam şimdi oldu, ben sadece b sütünuna veri girip denedim. Öyle olunca olmadı.
Neyse elinize sağlık. Çok güzel oldu..