isimler tıklandığında alt satıra geçsin

[arifbirgen]

değerli hocalarım
ekteki açıklamada belirttiğim gibi işlem olablirmi.
Yardımcı olursanız sevinirim.

 

[kulomer46]

Aşağıdaki kodu ilgili düğmeye aktarınız..
Sub aktar()
For i = 16 To 4 Step -1
Cells(i + 1, 2).Value = Cells(i, 2).Value
Cells(i + 1, 3).Value = Cells(i, 3).Value
Next
Cells(4, 2) = Cells(17, 2)
Cells(4, 3) = Cells(17, 3)
Cells(17, 2) = ""
Cells(17, 3) = ""
End Sub

 

[hamitcan]

Alternatif:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Intersect(Target, [b4:g4]) Is Nothing Then Exit Sub
   Target.Cut
   Cells(17, Target.Column).Insert Shift:=xlDown
End Sub

 

[Necdet]

Merhaba,
Alternatif olarak kes - yapıştır yöntemi ile yapılmış hali.
Tablonun 4. satırdan başladığını ama kaçıncı satırda bittiğini bilmediğimiz için son satırı hesaplattırdım.

Yine tabloyu G sütünuna kadar çizdiğinize göre B-G arasını alıyor.

Private Sub CommandButton1_Click()
    SonSat = [B65536].End(3).Row
    Range("B" & SonSat & ":G" & SonSat).Select
    Selection.Cut
    Range("B4").Select
    Selection.Insert Shift:=xlDown
End Sub

 

[Seyit Tiken]

İnşallah soruyu doğru anlamışız.

Private Sub CommandButton1_Click()
[b4:g16].Copy [b6500].End(3).Offset(2)
End Sub

 

[arifbirgen]

değerli hocalarıma
ilgilenip cevap veren tüm hocalarıma ayrı ayrı teşekkür ederim.
İstediğim uygun cevabı KULOMER46 hocam vermiş .Hepinize iyi
çalışmalar dilerim.

 

[Necdet]

Merak ettim bizimkisi uygunsuz yanıt mıydı?

 

[Orion1]

Merak ettim bizimkisi uygunsuz yanıt mıydı?

:lol: :lol:

 

[kulomer46]

Dostlar, teşekkür ediyorum. Bu forum aracılığıyla Excel, vba, makro bilgilerimizi paylaşmak çok güzel ve çok değerli. Eskiden beri programcılığa meraklıydım. Fakat son 2-3 yıldır aktif olarak uğraşıyorum. Programcılık benim için çok değerli. Kafamda oluşturduğum bir projeyi kodlara dökmek, sonra düğmeye tıklayınca çalışmasını seyretmek, hatalarını gidermek, daha kullanışlı hale getirmek, komutlarla yeni teknikler geliştirmek çok güzel. İnternetten programcılık ile ilgili kitaplar sipariş ediyor, fırsat buldukça kendimi bu alanda geliştirmeye çalışıyorum.
Bu arada sayın Evren Gizlen, Necdet Yeşertener, Seyit Tiken ve diğer değerli arkadaşlarımın cevaplarını, takip ettikleri mantığı ve kod hiyerarşisini inceliyor, verdikleri cevaplardan faydalanmaya çalışıyorum. Tüm Arkadaşlarıma emekleri için teşekkür ediyorum.
Birimiz hepimiz için, hepimiz birimiz için..

 

[Necdet]

Sayın kulomer46,

Sizin adınıza üzüldüm diyecem ama bu programcılık bulaşıcı bir olay. Ben yıllarca prgramcılık yaptıktan sonra ve Basic programlama dilini küçümseyerek bu günlere geldim ammaaa bir de baktım ki bu Basic makro dili olarak karşımıza çıktı, bunu da öğrenmek varmış kaderde deyip, bende ufaktan ufaktan öğrenmeye çalışıyorum.

Daha ne kadar çalışırım onu bilemem, ama insan bağımlı oluyor yaptığınız işin sonunu görünce.

Goca rabbım kurtarsın ne deyim