makro kopyala yapıştır

[1903emre34@gmail.com]

Arkadaşlar merhaba D1 hücresinde oluşturduğum, D2 D500 aralığında her bir hücrede olmasını istiyorum öyle makro kodu var mıdır?

 

[Orion1]

Dosyanız ektedir.

Sub SeçenekDüğmesi7_Tıklat()
If Range("D1").Value = 1 Then Range("D2:D500").Value = "Evet"
    
End Sub
Sub SeçenekDüğmesi8_Tıklat()
If Range("D1").Value = 2 Then Range("D2:D500").Value = "Hayır"
End Sub

 

[1903emre34@gmail.com]

teşekkürler kusura bakmayın ben yanlış anlattım d2 hücresinde yaptım

 

[Ömer BARAN]

Merhaba.

Ben soruyu; D1 hücresindeki düğme ve seçenek düğmelerinin gruplandırılıp,
500 satır boyunca aynı düğme grubundan çoğaltılacağı şeklinde anladım.

Eğer isteğiniz bu ise;
-- CTRL tuşu basılıyken, D1 hücresindeki mevcut düğme ve seçenek düğmelerini fareyle seçin,
-- Şekilller seçiliyken, birinin üzerinde fareyle sağ tıklayın ve GRUPLANDIRı seçin,
-- Şekil grubunun yüksekliğini hücre yüksekliğine göre ayarlayın,
-- şekiller seçiliyken formül çubuğunun bulunduğu kısımda en soldaki boş alanda görülen grup adı "Grup 1"den farklı ise bunu "Grup 1" olarak değiştirin.
-- Sonra aşağıdaki kod'u çalıştırın.
.

[FONT="Arial Narrow"]Sub ÇOĞALT()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If ActiveSheet.Shapes.Count = 1 Then GoTo 10
For dno = 2 To ActiveSheet.Shapes.Count
    ActiveSheet.Shapes.Range(Array("Grup " & dno)).Select: Selection.Delete
Next
10: For satır = 2 To 500
        ActiveSheet.Shapes.Range(Array("Group 1")).Select
        Selection.Copy: Cells(satır, 4).Select: ActiveSheet.Paste
        Selection.Name = "Grup " & satır
    Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
[A1].Activate: MsgBox "İŞLEM TAMAM":
End Sub[/FONT]

 

[1903emre34@gmail.com]

teşekkürler ömer bey benim tam istediğim şekilde sizin dediğiniz gibi yaptım düğme ve seçenekler aşağıda kaydıkça sabit durmuyor dosya ekledim.

 

[Ömer BARAN]

Sabit durmuyor derken kast ettiğiniz nedir anlayamadım.
D1 hücresindeki şekil grubuna fareyle sağ tıklayıp, özellikler kısmından
"Hücrelerle taşıma ve boyutlandırma" seçeneğini seçtikten sonra kod'u çalıştırın.

Aslında bu yapılan işlem (500 tane şekil grubu: 500 düğme, 1000 adet seçenek düğmesi)
çok kullanışlı durmuyor. Bu düğmelerle nasıl bir işlem yapacağınızı açıklarsanız,
VERİ DOĞRULAMA -> Liste özelliğini 500 satıra uygulamak daha anlamlı olabilir bence. Tabi tercih sizin.
Gönderdiğim kod, makro kaydet yöntemiyle oluşan kodlarda küçük değişiklikler yapılarak hazırlandı.
Birazdan bu düğmelerle kendi satırında işlemler yapmak istemeniz kuvvetle muhtemel, bunu istediğinizde durumun beni aşacağı kesin gibi.
Kolay gelsin.
.

 

[1903emre34@gmail.com]

ömer hoca veri doğrulama ile yapacağım teşekkürler