makro hatası database sorgulama

[YABANIM]

Değerli Arkadaşlar geçen açtığım konuyu tekrar açmak zorunda kaldım.
Ekte deneme adında bir dosyam var
bu dosyada listeleme yöntemiyle veri girdiğim hücreler bulunmakta
Sizin gibi değerli arkadaşlardan edindiğim bilgilerle Checkbox ile seçim yaparakveri sayfasından aktarım yaparak aktarım sayfasına işaretli olan satırları almak istiyorum

daha evvel çalışan makrolarda bir hata oldu ve ben çözemiyorum Checkbox ekleyebiliyorum Checkbox silebiliyorum fakat Checkbox ekleyip işartelediğim satırı aktarım sayfasına kopyalayamıyorum

Aynı zamanda en önemli sorum şu bu yapıdaki tablolardan veritabanı mantığı ile bir üst tablolara veri aktarmam mümkünmü yani tablom veri tabanı mantığına uyuyormu

 

[omerceri]

Sn YABANIM
1- Checkbox oluşturma kodlarındaki aşağıdaki değişikliği yapın. (Checkboxların adlarını Bulundukları Satır numarasına göre belirliyor.

.With Selection
.Caption = ""
.Value = xlOff
.Display3DShading = False
.Name = Cells(Hucre, "BI").Row
End With

2- Aşağıdaki kodları düzenleyip dosyanıza uygun hale getirip verileri aktarın.

For i = 11 To ActiveSheet.CheckBoxes.Count
Check = CStr(i)
If ActiveSheet.CheckBoxes(Check) = 1 Then
'Yapıştırılacak aktarım sayfası satırını belirleme kodları..............
ActiveSheet.Range("A" & i & ":E" & i).copy 'yapıştırma kodları.......
End If
Next

 

[YABANIM]

Çok teşekkür ederim emeğinize sağlık

 

[YABANIM]

Sn ömerceri ilginiz için teşekkür ederim makro konusunda yeniyim fakat bana yazdığınız mesajda 2 maddedeki kodu nereye yapıştırmam gerekiyor yardımcı olursanız sevinirim
Sub checkbox_Ekle()
Dim Hucre, Son_Satir As Single
Dim Secim As CheckBox
Dim Sol, Ust, Yukseklik, Genislik As Double
Application.ScreenUpdating = False
Son_Satir = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
For Hucre = 11 To Son_Satir
If Cells(Hucre, "A").Value <> "" Then
Sol = Cells(Hucre, "BI").Left
Ust = Cells(Hucre, "BI").Top
Yukseklik = Cells(Hucre, "BI").Height
Genislik = Cells(Hucre, "BI").Width
ActiveSheet.CheckBoxes.Add(Sol, Ust, Genislik, Yukseklik).Select
With Selection
.Caption = ""
.Value = xlOff
.Display3DShading = False
.Name = Cells(Hucre, "BI").Row
End With
End If
Next Hucre
Application.ScreenUpdating = True
End Sub
Sub Checkbox_Sil()
'Dim Secim As CheckBox
ActiveSheet.CheckBoxes.Delete
'For Each Secim In ActiveSheet.CheckBoxes
' Secim.Delete
'Next
End Sub
Sub Secilenleri_Kopyala()
For Each Secim In ActiveSheet.CheckBoxes
If Secim.Value = 1 Then
For say = 1 To Rows.Count
If Cells(say, 1).Top = Secim.Top Then
With Worksheets("veri")
Son_Satir = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & Son_Satir & "" & Son_Satir) = _
Worksheets("aktarım sayfası").Range("A" & say & "" & say).Value
End With
Exit For
End If
Next say
End If
Next
End Sub

 

[omerceri]

Dosyanızda Secilenleri_Kopyala makrosundaki kodların yerine aşağıdaki kodları yapıştırın. (Orijinal dosyanızı yedekleyin)

Sub Secilenleri_Kopyala()
For i = 11 To Sheets("VERİ").CheckBoxes.Count
Check = CStr(i)
If Sheets("VERİ").CheckBoxes(Check) = 1 Then
say = Sheets("AKTARIM SAYFASI").Range("A65536").End(xlUp).Row + 1
Sheets("VERİ").Range("A" & i & ":E" & i).Copy Sheets("AKTARIM SAYFASI").Range("A" & say)
End If
Next
End Sub

 

[YABANIM]

İlginize teşekkür ederim ama neyazıkki yapamadım worksheet sınıfının chekbokses özelliği alınamıyor hatamesajı aldım kolay gelsin

 

[omerceri]

örnek ekte, gerçi alta doğru kayıyor ama çalışıyor. Biraz daha uğraşmak gerekecek herhalde.

 

[excelci76]

örnek ekte, gerçi alta doğru kayıyor ama çalışıyor. Biraz daha uğraşmak gerekecek herhalde.

Hocam bu makro'da formül yazınca nasıl kayıt yapılıyor? bir türlü yapamadım..

 

[YABANIM]

Hocam elinize sağlık aktarım oluyor ama fiyat dataları gelmiyor

 

[omerceri]

1- Formülle almak için hücrelerin konumunun aynı olması, formülün yazıldığı hücreye formülde referans yapılan hücrelerin "uzaklığının" aynı olması gerekir. 4 hücre sağda veya solda, 2 üstteki veya alttaki hücre gibi
2- Formülü kaldırıp, sadece değeri aktarabiliriz. Onun için kopyala/özel yapıştır/değerleri işleminin kodlarını kullanabiliriz.
3- Fiyat dataları hangi hücreler onu belirtebilirseniz.

 

[YABANIM]

Hocam elbeeteki chekbokses ile zorunlu değil x işareti ile yeni satırlar eklenmek koşulu ile yani veri sayfasına yeni datalar gelecek bu datalardan istediğim satırları aktarmak isterim ilginiz için teşekkür ederim

 

[omerceri]

Sn. YABANIM
Önceki sayfada 7. Mesajdaki Örn.Zip i güncelledim BI sütunundaki hücrelere x yazınca çalışıyor ve bütün satırı aktarıyor.
Eğer parça parça aktarmak istiyorsanız, Ona dair örnek kod ekledim.

 

[YABANIM]

Teşekkürler

Hocam çok teşekkürler hemen alıp uygulayacağım elinize sağlık

 

[YABANIM]

teşekkür

Hocam denedim harika kod çalışıyor emeğinize elinize sağlık Allah sizden razı olsun