Kod düzenleme

[ASLAN7410]

Merhaba, herkese hayırlı akşamlar.

Ekte gönderdiğim excel dosyamdaki makrolar gayet güzel çalışıyor, ancak aşağıdaki makro satırını değiştirdiğim zaman çalışmıyor.

If Intersect(Target, Range("B2:F" & Rows.Count)) Is Nothing Then Exit Sub

Bu şekilde yaptığım zaman çalışmıyor.

If Intersect(Target, Range("B2:B,F2:F" & Rows.Count)) Is Nothing Then Exit Sub

Yardımcı olur musunuz?

Kodun tamamı.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 10
    [B]If Intersect(Target, Range("B2:F" & Rows.Count)) Is Nothing Then Exit Sub[/B]
    Application.EnableEvents = False
    
    Select Case Target.Column
        Case 2, 6
        Target = UCase(Replace(Replace(Target, "i", "İ"), "ı", "I"))
    End Select
    
    Sheets(1).Range("A2:A" & [A1048576].End(3).Row).ClearContents
    son = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Range("A2") = 1
    Range("A2").AutoFill Destination:=Range("A2:A" & son), Type:=xlFillSeries
    Sheets(1).Range("A1:F1048576").Borders.LineStyle = xlNone 'Kenarlık sil
    Sheets(1).Range("A1:F" & [B1048576].End(3).Row).Borders.LineStyle = xlContinuous 'Kenarlık
    
10
    Application.EnableEvents = True
End Sub

 

[muygun]

Merhaba;
İlgili satırı;

If Intersect(Target, Range("B2:B" & Rows.Count, "F2:F" & Rows.Count)) Is Nothing Then Exit Sub

Şeklinde düzenleyin.

İyi çalışmalar.

 

[ASLAN7410]

Sayın muygun, ilginiz için çok teşekkür ediyorum, ellerinize sağlık, sayenizde gayet güzel oldu.

Göndermiş olduğum örnekteki kodda şöyle bir sıkıntı çıkıyor, F sütunundan sonraki sütunlardaki hücrelerde veriler mevcut, B sütunu ve F sütununa bilgi girildiğinde F sütunundan sonraki sütunlardaki verileri A sütunundaki sıra numarası veren kod görüyor ve en son satıra kadar sayı veriyor.

Sıra numarasını veren koduda B ve F sütununa göre ayarlayabilir misiniz?

 

[ASLAN7410]

Sayın muygun, sizin göndermiş olduğunuz koda başka sayfadaki kodlarda bulunan H sütunu için de ekleme yapınca hata mesajı verdi.

If Intersect(Target, Range("B2:B" & Rows.Count, "F2:F" & Rows.Count, [B]"H2:H" & Rows.Count[/B])) Is Nothing Then Exit Sub

 

[muygun]

Merhaba;
Tam anlayamadım ama;

Private Sub Worksheet_Change(ByVal Target As Range)
sat = Target.Row
On Error GoTo 10
If Intersect(Target, Range("B2:B" & Rows.Count, "F2:F" & Rows.Count)) Is Nothing Then Exit Sub
Application.EnableEvents = False

Select Case Target.Column
Case 2, 6
Target = UCase(Replace(Replace(Target, "i", "İ"), "ı", "I"))
End Select

Sheets(1).Range("A2:A" & [A1048576].End(3).Row).ClearContents
son = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Range("A2") = 1
Range("A2").AutoFill Destination:=Range("A2:A" & son), Type:=xlFillSeries
Sheets(1).Range("A1:F1048576").Borders.LineStyle = xlNone 'Kenarlık sil
Sheets(1).Range("A1:F" & [B1048576].End(3).Row).Borders.LineStyle = xlContinuous 'Kenarlık

10
Cells(sat, 1) = sat - 1
Application.EnableEvents = True
End Sub

Şeklinde bir deneyin.

 

[ASLAN7410]

Sayın muygun, ellerinize sağlık çok teşekkür ediyorum.

4. mesajımdaki hatayı veriyor.

 

[Saban Sertkaya]

Range ifadesine 2 değişken tanımlanır diye biliyorum. Sizde 3 olmuş. B,F ve H.

 

[ASLAN7410]

Sayın Şaban Bey, ilginiz için çok teşekkür ediyorum.

Peki kodu nasıl 3 sütuna uygularız?

 

[Saban Sertkaya]

Özel üye olmadığımdan dosyanızı inceleyemiyorum. Bir upload sitesine ekleme şansınız olursa bir bakayım. Elimden bir şey gelirse ...

 

[ASLAN7410]

Dosya ekte.


Kodun sadece 3 sütunda çalışmasını istiyordum.

http://dosya.co/185sidv83so1/ÖRNEK1_(1).xlsm.html

 

[Saban Sertkaya]

Bana biraz müsade edin. Bir bakayım elimden bir şey gelecek mi.

 

[Saban Sertkaya]

İstediğinizi tam olarak anlayamamakla birlikte, kodu aşağıdaki şekilde değiştirerek bir dener misiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 10
    If Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then
    If Intersect(Target, Range("F2:F" & Rows.Count)) Is Nothing Then
    If Intersect(Target, Range("H2:H" & Rows.Count)) Is Nothing Then
    Exit Sub
    End If
    End If
    End If
    Application.EnableEvents = False
    
    Select Case Target.Column
        Case 2, 6
        Target = UCase(Replace(Replace(Target, "i", "İ"), "ı", "I"))
    End Select
    
    Sheets(1).Range("A2:A" & [A1048576].End(3).Row).ClearContents
    son = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Range("A2") = 1
    Range("A2").AutoFill Destination:=Range("A2:A" & son), Type:=xlFillSeries
    Sheets(1).Range("A1:F1048576").Borders.LineStyle = xlNone 'Kenarlık sil
    Sheets(1).Range("A1:F" & [B1048576].End(3).Row).Borders.LineStyle = xlContinuous 'Kenarlık
    
10
    Application.EnableEvents = True
End Sub

 

[ASLAN7410]

Sayın Şaban Bey, çok teşekkür ediyorum, sütunları ayrı ayrı yazmak gerekiyor demek ki.

Hayırlı geceler diliyorum.

 

[Saban Sertkaya]

İşiniz görüldüyse ne mutlu. Hayırlı geceler...