Makroları güZEnleme ve uyarlama

[gedavet]

Ekdeki dosyanın için ekleme ve silme makrolarını bu taploya göre uyarlayı vereblirmiSİNİZ
başta hareket edEN KUTUCUKLAR SAĞA SOLA DEĞİLDE J VEYA K SÜTÜN HIZASINDA SAĞ BOŞLUKSA AŞAĞIYA DOĞRU HAREKET ETSE

 

[uzmanamele]

merhaba

syın mustafakoza,
lütfen aşağıdaki linki okuyunuz!

http://www.excel.web.tr/showthread.php?t=72629

 

[fedeal]

Merhaba,
Sayfanın kodlarını alttakinlerle değiştirin umarım işinizi görür.İyi çalışmalar.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
If Not Intersect(Target, [D4:H65536]) Is Nothing Then
On Error Resume Next
If Target.Row >= 3 And Target.Row <= 23 Then
ActiveSheet.Shapes("Grup 1").Top = Cells(1, Target.Column).Top
ActiveSheet.Shapes("Grup 1").Left = Cells(1, Target.Column).Left
Cells(3, 2).Select
End If
If Target.Row >= 25 And Target.Row <= 45 Then
ActiveSheet.Shapes("Grup 1").Top = Cells(24, Target.Column).Top
ActiveSheet.Shapes("Grup 1").Left = Cells(24, Target.Column).Left
Cells(25, 2).Select
End If
End If
End Sub

 

[gedavet]

aşağıya doğru hareket ediyor ancak taplonun üzerinde hareket ediyor sağdaki boş yerde hareket etse taplonun üzerine gelmese taplo aşağıya doğru çoğalıp gidicek

 

[fedeal]

O zaman liste numaralarını kullanalım.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
If Not Intersect(Target, [b4:b65536]) Is Nothing Then
On Error Resume Next
ActiveSheet.Shapes("Grup 1").Top = Cells(Target.Row, Target.Column).Top
ActiveSheet.Shapes("Grup 1").Left = Cells(Target.Row, Target.Column).Left
End If
End Sub

 

[gedavet]

selam iyigünler emrah bey benim istediğim kutucuklar j veya k süütununda aşağıya doğru hareket etsin taplonun üstene geliyor görüntüde sıkıntı oluyor

 

[fedeal]

Sil makronuzu inceledgimde soldaki hücre seçilince (b sütunundaki) işlem yapılıyor. b sütununu genişlettim inceleyin istedigimiz sütunda hareket ettiririzde kullanışlı bence böyle olur.inceleyin ,

 

[gedavet]

emrah bey ilginiz için teşekkür ederim ancak b sütünu formüllü yukarıda sayı alıyor kilitli olacak taplonun içerisine tıklayınca k sütünunda harket etse bu mümkün olmuyormu
birde burda sil ve ekle makrolarını bu çalıöya göre uyarlatı verebilirmisiniz yapmak istediğimi önceki mesajlarımdada yazmıştım

 

[gedavet]

hocalarım iyi günler bu konuda 3 mkaronun düzenlenmesi lazım 1. si sil makrosu 2. si sayfa ekle 3. sü kutucukların sağ boşlukta aşağıya doğru hareket etmesi

 

[gedavet]

http://www.excel.web.tr/f48/hareketli-buton-t58980.html
http://www.excel.web.tr/showthread.php?p=396481#post396481
buralarda bir şeyler bul dum ancak yapamadım aslın istediğim çok kolay "k" sütununda aşağıya doğru harek etmesini istiyorum

 

[gedavet]

selamün aleyküm hocalarım bu konuda bana ayrdımcı olan olsa çok iyi olacak

 

[fedeal]

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
If Not Intersect(Target, [d4:h65536]) Is Nothing Then
On Error Resume Next
ActiveSheet.Shapes("Grup 1").Top = Cells(Target.Row, "k").Top
ActiveSheet.Shapes("Grup 1").Left = Cells(Target.Row, "k").Left
    ActiveWindow.ScrollRow = Target.Row - 10
End If
End Sub

ilgili sütun üzerinde kayıyor ancak sil makrosundaki düzenlemeyi yapamadım,iyi çalışmalar.

 

[gedavet]

emrah beye çok teşekkür ederim bo konudaki taplo ekle ve sil makrosuna yardım olacak yokmu