Çoklu Kopyalamada Makro Hatası

[kombo]

Selamlar
Hazırladığım makro aşağıdaki hatayı veriyor sebebi ne olabilir?
Not: Makro çalışıyor , Fakat makro olan hücreyi sağ alt köşesinden tutup alttaki hücrelere kopyalamak istediğimde bir hücreye sorunsuz kopyalıyor fakat birden fazla hücreye kopyaladığı zaman hata veriyor.
Hata satırı olarak (Case "1.Grup") olarak gösteriyor .

 

[kombo]

Yukarıdaki makrodan vazgeçtim. Site içerisinde bulduğum başka bir makroyu kullanıyorum. Run-Time Error hatası almıyorum ama kopyalamayı bir türlü başaramadım. Sadece bir hücre kopyalıyorum. ve ana sayfadaki başvuru hücresindeki veriler değişince hedef hücre değişmiyor.
(Aslında yanlış ifade ettim. Hedef hücredeki fonsiyonum çalışıyor ama renk değişmiyor. Yukarıdaki ve sonradan bulup kullandığım makro hücre rengini değiştirmekle ilgili)

 

[kombo]

Bu konuda herhangi bir fikri olan arkadaş yokmu? :?

 

[Levent Menteşoğlu]

Siteden bulduğunuz kodu yazarmısınız? birde ilk resimdeki kodun içine ilk satır olarak "on error resume next" satırını ilave ederek deneyebilirsiniz.

 

[kombo]

Hücre renklendirme konusunda siteden bulduğum kodlar aşağıda. Ama bu da öbür kod gibi çalışıyor. Yani hücre içinden formülü sağ ucundan aşağıya çekerek kopyalarken tek tek kopyalarsanız sonuç veriyor çoklu kopyalamada çalışmıyor. VE başvuru hücresindeki veri değiştiği zaman hedef hücre değeri değişiyor fakat renk değişmiyor.


Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ws_exit:
Dim rng As Range
Set rng = Application.Intersect(Target, ActiveSheet.Range("a1:IV65000"))
If Not rng Is Nothing And Target = "1.Grup" Then
Target.Interior.ColorIndex = 24
Exit Sub
End If

If Not rng Is Nothing And Target = "2.Grup" Then
Target.Interior.ColorIndex = 35
Exit Sub
End If

If Not rng Is Nothing And Target = "3.Grup" Then
Target.Interior.ColorIndex = 34
Exit Sub
End If

If Not rng Is Nothing And Target = "4.Grup" Then
Target.Interior.ColorIndex = 43
Exit Sub
End If

If Not rng Is Nothing And Target = "5.Grup" Then
Target.Interior.ColorIndex = 36
Exit Sub
End If



If Not rng Is Nothing Then Target.Interior.ColorIndex = xlNone
Set rng = Nothing
Application.EnableEvents = True
If Not Intersect(Target, Me.Range("A1:IV65000")) Is Nothing Then
With Target
Select Case LCase(.Value)
End Select
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

 

[Levent Menteşoğlu]

VE başvuru hücresindeki veri değiştiği zaman hedef hücre değeri değişiyor fakat renk değişmiyor.

Yukarıdaki kodları change olayına değilde calculate olayına yazarak deneyin.

 

[kombo]

sn.leventm
O söylediğiniz şeyi bilmiyorum ki yazayım.
Aslında ben sitede bir arkadaşın sormuş olduğu soruyu kendime iş edindim, hem öğrenmeye çalışıyorum hemde arkadaşın sorununu çözmeye, Ama makro konusunda fazla bilgim olmadığı için burada tıkandım
ben en iyisi dosyayı göndereyim..
Sağlıcakla kalın

 

[Levent Menteşoğlu]

Öncelikle yazdığınız kod beklediğiniz işlemi gerççekleştirmek, çünkü değiştirilen veri ayrı değişecek renk ayrı sayfadadır. Bu sebeple kodun SF1 sayfasındaki işleme göre çalıştırılması gerekir. Öncelikle normal bir module renklendirmeyi yapacak aşağıdaki kodu kopyalayın.

[vb:1:420da354d1]Sub renklendir()
Set s1 = Sheets("sayfa2")
For sut = 3 To 9 Step 6
For sat = 2 To s1.Cells(65536, sut).End(3).Row
deg = s1.Cells(sat, sut)
Set adr = s1.Range(Cells(sat, sut).Address)
Select Case deg
Case "1.Grup": adr.Interior.ColorIndex = 24
Case "2.Grup": adr.Interior.ColorIndex = 35
Case "3.Grup": adr.Interior.ColorIndex = 34
Case "4.Grup": adr.Interior.ColorIndex = 43
Case "5.Grup": adr.Interior.ColorIndex = 36
Case Else: adr.Interior.ColorIndex = xlNone
End Select
Next: Next
End Sub
[/vb:1:420da354d1]

SF1 sayfasının kod sayfasınada aşağıdaki kodu yazın. Böylece SF1 sayfasının F sütunundaki değişiklikte "renklendir" isimli prosedür çağırılarak çalıştırılacaktır.

[vb:1:420da354d1]If Intersect(Target, [f:f]) Is Nothing Then Exit Sub
renklendir
End Sub
[/vb:1:420da354d1]

 

[kombo]

sn. leventm
gönderdiğiniz kodlarla yapamadım. Şimdide grup ayrımı yapmaksızın 1.grubun rengini veriyor. SF1 de F:F sütunu değişmiyor I:I sütunu değişken ona göre değiştirdim yine olmadı . Yazdığınız kodların sağını solunu kurcaladım ama yapamadım .