Checkbox'la seçilen satırın başka sayfaya kopyalanması

[Spatz]

Merhabalar,

Başlıkta da belirttiğim gibi hücrelere gömülmüş checkbox'lardan biri işaretlendiğinde bir sonraki sayfaya o satır kopyalansın istiyorum.

Ayrıca bazı satırlar işaretlendiğinde normalde onunla birlikte başka bir satır da kopyalansın istiyorum. Birbirlerine bağlı olması gibi bir şey. A seçneğini istiyorsan beraber B'yi de vermelisin demeden, bunu otomatikman Excel'e yaptırmak istiyorum. Ekte gönderdiğim basit liste üzerinden bana yardımı dokunabilecek biri olursa minnettar kalırım...

 

[Spatz]

Eki göndermeyi unutmuşum. Pardon..

 

[Spatz]

Sizlerden cevap gelmeyince forumu taramaya devam ettim. Şöyle bir şey buldum, ekte gönderiyorum. Burada onay butonuna basınca yanında "tarih ve onay verenin ismi" çıkmasın da o satırı alıp dediğim gibi bir yere kopyalasın (başka sayfa terchimdir)

mümkün müdür?

 

[leumruk]

Merhaba,
Ekteki örneği inceleyiniz.

Private Sub CommandButton1_Click()
Set s2 = Sheets("Sheet2")
Application.ScreenUpdating = False
    For i = 1 To ActiveSheet.OLEObjects.Count -1
        Set chk = ActiveSheet.OLEObjects(i)
        If Left(chk.Name, 8) = "CheckBox" Then
        If chk.Object.Value = True Then
        Sat = chk.BottomRightCell.Row
            Range(Cells(Sat, "c"), Cells(Sat, "k")).Copy
            s2.Cells(s2.[a65536].End(3).Row + 1, "a").PasteSpecial Paste:=xlValues
            St = St & Sat & Chr(10)
        If chk.Object.Value = True And i = 5 Then
        Range("c14:k14").Copy: s2.Cells(s2.[a65536].End(3).Row + 1, "a").PasteSpecial Paste:=xlValues
        End If
        End If
        End If
    Next
    Application.CutCopyMode = False
    MsgBox "İşlem tamam. Aktarılan satırlar:" & Chr(10) & St, vbInformation, "DURUM"
End Sub

Sayfa2'ye aktarıyor.

 

[Spatz]

Teşekkürler vakit ayırdığınız için.

Lakin küçük bir ricam daha var. Şunu nasıl yapabilirim. Aynı örnek üzerinden gidersek;

4. satır check edildiğinde otomatikman -atıyorum- 14. satır da beraber kopyalansın diğer sayfaya. bu mümkün müdür?

 

[leumruk]

Teşekkürler vakit ayırdığınız için.

Lakin küçük bir ricam daha var. Şunu nasıl yapabilirim. Aynı örnek üzerinden gidersek;

4. satır check edildiğinde otomatikman -atıyorum- 14. satır da beraber kopyalansın diğer sayfaya. bu mümkün müdür?

Bu mümkün tabi ki; ancak neyin nereye kopyalanacağı hakkında bilgi vermelisiniz. Kopyalama işleminin ne şekilde gerçekleşmesini istiyorsunuz? 14. satırı 2. sayfanın neresine kopyalayacak.

 

[Spatz]

2. sayfaya kopyalanan 4. satırın hemen altına.

Teşekkürler tekrardan.

 

[leumruk]

2. sayfaya kopyalanan 4. satırın hemen altına.

Teşekkürler tekrardan.

4. satır sabit mi olacak? Yani kodu bir defa mı çalıştıracaksınız? Yoksa her aktarma da 14. satırı 2. sayfanın son boş satırı hangisi ise ona mı aktarsın?

 

[Spatz]

Şöyle anlatayım:

4. satır ve 14. satır birbirleriyle bağlantılı satırlar olsun. 4. satırı her seçtiğimde 14. satır da seçilsin ve o da kopyalansın diğer sayfaya. Önceliğim 4 ve 14'ün peş peşe kopyalanması ama bu diğer satırların kopyalanmasını zorlaştıracaksa, o sayfaya kopyalansın yeter...

Bir de yazdığınız kodu kendime göre uyarlarken sorun çıktı. Artık excel sadece ilk satırı kopyalıyor :s hatta sizin attachment'ı tekrar indirdim, onda da aynı şey oluyor. Düzeltmek için uğraşıyorum ama bakalım..

 

[leumruk]

Kodu ve dosyayı istediğiniz ölçütlere göre güncelledim. Yeniden deneyebilirsiniz.

 

[Spatz]

Teşşekkürler, ellerinize sağlık. Son bir ricam daha olacak, sonra sizi rahat bırakacağım:

4. satırdaki checkbox işaretlendiğinde 14. satırda da görsel olarak bi check box işaretlenebilir mi?

 

[leumruk]

Teşşekkürler, ellerinize sağlık. Son bir ricam daha olacak, sonra sizi rahat bırakacağım:

4. satırdaki checkbox işaretlendiğinde 14. satırda da görsel olarak bi check box işaretlenebilir mi?

Eklemek sorun değil; ancak ne amaçla kullanacağınızı da belirtirseniz kodda ona göre düzenleme yapalı. Checkboxu ekleriz; ama halihazırdaki kodumuzdaki döngüye bu checkbox da dahil olacak ve kodun çalışmasını etkileyecek. Yeterli düzeyde açıklama yapmalısınız.

 

[Spatz]

Şöyle ben sizin kodu şu şekilde yazacağınızı düşünmüştüm;

4. satırda checkbox işaretlenince 14. satırda da işaretlensin ve sonra kodu çalıştırdığınızda tüm işaretli olanlar kopyalansın. Ama siz sanıyorum şöyle yapmışsınız;

checkbox işaretlenmişse ve i=4 ise, kopyalansın.

Şimdi demek istediğim bu kodla kopyalanıyor ama 14. satırda da checkbox olsa ve o da 4 ile beraber işaretlense daha uygun olur. ama karıştıracaksa kodu, çok önemli değil.

Teşekkürler tekrardan.

 

[leumruk]

4. nolu dosyadaki mesajı güncelledim. Checkbox ve istediğiniz kodu ekledim.

 

[Spatz]

Teşekkürler.

her şey istediğim gibi oldu derken bi sorunla karşılaştım:

sizin yazdığınız kodda değişiklikler yapınca kod çalışmıyor. i=5 değil de i=15 yazıyorum ve range'i de ona göre belirliyorum ama kopyalama yapmıyor. Sizin upload yaptığınız dosyada ise istediğim değişikliği yapabiliyorum. Sizce neden olabilir bu problem?

 

[leumruk]

Teşekkürler.

her şey istediğim gibi oldu derken bi sorunla karşılaştım:

sizin yazdığınız kodda değişiklikler yapınca kod çalışmıyor. i=5 değil de i=15 yazıyorum ve range'i de ona göre belirliyorum ama kopyalama yapmıyor. Sizin upload yaptığınız dosyada ise istediğim değişikliği yapabiliyorum. Sizce neden olabilir bu problem?

Bir şeyleri gözden kaçırıyor olmalısınız. Çeşitli sebepleri olabilir. Görmeden bir şey söylemek zor.

 

[Spatz]

Evet sabah dinç kafayla kontrol ettiğimde buldum hatamı. Teşekkür ederim. Şimdi biraz daha değişik bir şey düşünüyorum.

3 tane buton yan yana olacak. Ve tıkladığımız butona göre altında bulunan -diyelim ki 8 satır olsun- satırlar gizlenecek. İlk butona 3., 4., 5. satırlar seçenek olarak gelsin. Diğer butona 1. 6. gibi gibi...

Bunu yapmak da çok zor olmasa gerek. Dün başladığım ve sayenizde geldiğim noktayı düşünürsek.. Tekrardan teşekkürler...

 

[leumruk]

Evet sabah dinç kafayla kontrol ettiğimde buldum hatamı. Teşekkür ederim. Şimdi biraz daha değişik bir şey düşünüyorum.

3 tane buton yan yana olacak. Ve tıkladığımız butona göre altında bulunan -diyelim ki 8 satır olsun- satırlar gizlenecek. İlk butona 3., 4., 5. satırlar seçenek olarak gelsin. Diğer butona 1. 6. gibi gibi...

Bunu yapmak da çok zor olmasa gerek. Dün başladığım ve sayenizde geldiğim noktayı düşünürsek.. Tekrardan teşekkürler...

Rica ederim. Size kolay gelsin. Takıldığınız yerler olursa yardımcı olmaya çalışırız.

 

[Spatz]

Merhabalar,

Şimcik ekte gönderdiğim dosyaya bakarsanız orada şöyle bir şey yaptığımı görürsünüz.

5. Görev "check" edildiğinde 6. görev gizlensin. Ama ne yazık ki 6. görevdeki checkbox satır gizlenmesine rağmen orada kalıyor. Checkbox'ları nasıl satırla birlikte gizle/göster yapabilirim?

Teşekkürler,

 

[leumruk]

Merhaba,
Kodunuzu aşağıdaki ile değiştirin:

Private Sub CheckBox5_Click()
If CheckBox5 = True Then
Range("A7:K7").EntireRow.Hidden = True
CheckBox7.Visible = False
Else:
CheckBox7.Visible = True
Range("A7:K7").EntireRow.Hidden = False
End If
End Sub

NOT: Checkboxlarınız sanırım sıralı değil. Numaraları sizi yanıltmasın.