onay kutulari süzme isleminde üst üste geliyor

[dennisf06]

merhaba
dosya icerisinde her satirda onay kutulari var. sadece bu onay kutularini isaretliyorum. Okey veya Problem diye. yalniz satirlar arasinda süzme islemi yapinca onay kutulari üst üste geliyor. bir hücrenin icerisine onay kutularini tam olarak nasil yerlestirebilirim acaba. tesekkür ederim.

 

[halit3]

merhaba
dosya icerisinde her satirda onay kutulari var. sadece bu onay kutularini isaretliyorum. Okey veya Problem diye. yalniz satirlar arasinda süzme islemi yapinca onay kutulari üst üste geliyor. bir hücrenin icerisine onay kutularini tam olarak nasil yerlestirebilirim acaba. tesekkür ederim.

Sorunuzu excele yeni başlıyanlar başlığı altında sormuşsunuz ?
Makrolar bölümünde sorsaydınız, aşağıdaki kod belki işinize yarardı.

kod:

Sub Nesne_ekle()
On Error Resume Next
Set sh = Sheets(ActiveSheet.Name)
Dim Picture As Object
For Each Picture In sh.Shapes
If TypeName(sh.Shapes(Picture.Name).OLEFormat.Object) = "CheckBox" Then
Picture.Delete
End If
Next Picture
sut = "k"
sut2 = "L"
For r = 4 To sh.Cells(Rows.Count, "d").End(3).Row
If Rows(r).RowHeight <> 0 Then
sol = sh.Cells(r, sut).Left
orta = sh.Cells(r, sut).Top - 4
gen = sh.Cells(r, sut).Width - 4
yuk = sh.Cells(r, sut).Height - 4
sh.CheckBoxes.Add(sol, orta, gen, yuk).Select
Selection.Characters.Text = "Okey"
Selection.Value = xlOff
Selection.LinkedCell = "$[COLOR=red]A[/COLOR]$" & r
Selection.Display3DShading = False
sol = sh.Cells(r, sut2).Left
orta = sh.Cells(r, sut2).Top - 4
gen = sh.Cells(r, sut2).Width - 4
yuk = sh.Cells(r, sut2).Height - 4
sh.CheckBoxes.Add(sol, orta, gen, yuk).Select
Selection.Characters.Text = "Problem"
Selection.Value = xlOff
Selection.LinkedCell = "$[COLOR=red]A[/COLOR]$" & r
Selection.Display3DShading = False
End If
Next r

For Each Picture In sh.Shapes
If TypeName(sh.Shapes(Picture.Name).OLEFormat.Object) = "CheckBox" Then
sat = Picture.BottomRightCell.Row
sut = Picture.BottomRightCell.Column
sh.Shapes(Picture.Name).OLEFormat.Object.Top = sh.Cells(sat, sut).Top + 4 ' + say
sh.Shapes(Picture.Name).OLEFormat.Object.Left = sh.Cells(sat, sut).Left
sh.Shapes(Picture.Name).OLEFormat.Object.Height = sh.Cells(sat, sut).Height - 6
sh.Shapes(Picture.Name).OLEFormat.Object.Width = sh.Cells(sat, sut).Width
End If
Next Picture
MsgBox "Dizme işlemi tamam ", vbCritical, "U Y A R I"

End Sub

not :kırmızı yerleri bağlıyacağınız hücrenin sutün numarasını yazınız.

 

[dennisf06]

halit3 hocam tesekkür ederim öncelikle ilginize. kodlari aynen yaptiginiz gibi yazip onay kutusuna atadim. dizim islemi tamamlandi diye bir mesaj geldi. süzme isleminden sonra tekrar ayni sorun devam etti. nerde yanlislik yaptigimi bilemiyorum tabi ki. daha basit bir cözümü yok mu acaba. ayrica onay kutulari bütün bir sütün boyunca devam etsin istiyorum. tesekkür ederim.

 

[halit3]

halit3 hocam tesekkür ederim öncelikle ilginize. kodlari aynen yaptiginiz gibi yazip onay kutusuna atadim. dizim islemi tamamlandi diye bir mesaj geldi. süzme isleminden sonra tekrar ayni sorun devam etti. nerde yanlislik yaptigimi bilemiyorum tabi ki. daha basit bir cözümü yok mu acaba. ayrica onay kutulari bütün bir sütün boyunca devam etsin istiyorum. tesekkür ederim.

Süzme işleminden sonra kodu çalıştırmayı denedinizmi ?

 

[dennisf06]

hayir denemedim. aslinda kodu nasil calistiracagimi da bilemiyorum. bir butona mi baglamam gerekiyor acaba? ayrica bu tabloyu bir kac kisi daha kullanacagi icin daha basit bir cözüm ariyorum aslinda.varsa tabi ki. tesekkürler.

 

[halit3]

hayir denemedim. aslinda kodu nasil calistiracagimi da bilemiyorum. bir butona mi baglamam gerekiyor acaba? ayrica bu tabloyu bir kac kisi daha kullanacagi icin daha basit bir cözüm ariyorum aslinda.varsa tabi ki. tesekkürler.

Dosyanız ekde

 

[dennisf06]

halit3 hocam tesekkür ederim. sütun boyunca bunlari nasil cogaltabilirim acaba.

 

[dennisf06]

cözümünüzü ana dosya üzerinde denedim. 10.000 satirlik bir dosyada islem cok uzun sürdü. ayrica süzme islemini sonlandirdiktan sonra onay kutulari kayboluyor. bunun icin tekrar makroyu calistirmak gerekiyor. güzel bir cözüm ama uygulamada pratik degil. makrosuz bir cözüm olabilir mi acaba. emekleriniz icin cok tesekkür ederim.

 

[halit3]

cözümünüzü ana dosya üzerinde denedim. 10.000 satirlik bir dosyada islem cok uzun sürdü. ayrica süzme islemini sonlandirdiktan sonra onay kutulari kayboluyor. bunun icin tekrar makroyu calistirmak gerekiyor. güzel bir cözüm ama uygulamada pratik degil. makrosuz bir cözüm olabilir mi acaba. emekleriniz icin cok tesekkür ederim.

For r = 4 To sh.Cells(Rows.Count, "[COLOR=red]d[/COLOR]").End(3).Row

Kodun yukarıdaki bölümünde D sutünunun en son satırına kadar işlem yapıyor.

Diğer taraftan 10000 satırlık işlemde bu düzen oldukça yavaş çalışır.
benden bu kadar iyi çalışmalar.

 

[dennisf06]

tesekkür ederim tekrardan ilginize. galiba olmuyor bu islem pratik olarak.

 

[halit3]

Nesneleri mause ile sağ tıklayın ve
denetim biçimlendir/özellikler/hücrelerle taşıma ve boyutlandırma
tikini işaretliyerek deneyin.