Tekrarlanan kodların tek hale getirilmesi

[hsayar]

....
...
...
    '12+V>>>>>>>>>>
    ElseIf s1.Cells(g, 1) = "12" And (s1.Cells(g, 2) = "V" Or s1.Cells(g, 2) = "v") Then
    c = c + 1
        'ikinci sütun kontrolü
        If c = 35 Then
        sut = 6: c = 1
        End If
        'ev stok Kayıt sayısı kontrolü
        If WorksheetFunction.CountA(s2.[e11:e44,k11:k44]) = 68 Then
        MsgBox "Tablo dolduğu için kayıt yapılamadı.", , "UYARI": Exit Sub
        End If
    '12 lik stok çıkış yazma işlemi
    s2.Cells(c + 10, 1 + sut) = s1.Cells(g, 5)
        s2.Select: Cells(c + 10, 1 + sut).Select
        Selection.Font.ColorIndex = 2
        Selection.Interior.ColorIndex = 1
        Selection.Font.Bold = True ''seçili hücreyi siyah dolgu,beyaz kalın yaz
    s2.Cells(c + 10, 2 + sut) = UCase(s1.Cells(g, 4))
        s2.Select: Cells(c + 10, 2 + sut).Select
        Selection.Font.ColorIndex = 2
        Selection.Interior.ColorIndex = 1
        Selection.Font.Bold = True ''seçili hücreyi siyah dolgu,beyaz kalın yaz
    s2.Cells(c + 10, 5 + sut) = s1.Cells(g, 7)
        s2.Select: Cells(c + 10, 5 + sut).Select
        Selection.Font.ColorIndex = 2
        Selection.Interior.ColorIndex = 1
        Selection.Font.Bold = True ''seçili hücreyi siyah dolgu,beyaz kalın yaz
    
    '<<<<<<<<<<<<<<<<<12+V
    End If
....
....
....

yukarıdaki kodlarda (seçili hücreyi siyah dolgu,beyaz kalın yaz) işlemi her koşul gerçekleştirildiğinde yapılyor bunu ensonda bir kodda yazmak nasıl olur?

Saygılarımla

 

[Ferhat Pazarçevirdi]

Merhabalar,

Koşul gerçekleştiğinde yapılıyor ise, en sondan kastınız nedir?

Eğer End If'ten sonra ise; bu durumda koşul gerçekleşse de gerçekleşmese de seçili hücre siyah dolgulu ve beyaz-kalın olur?

 

[hsayar]

sayın fpc kastım şu bu biçimlendirmeyi yapmak için 12 satırr harcıyoruz;
ancak bu satırlar birbirine birleşik satırlar

mesala 15. satır da koşul gerçeklşeiyorsa
A,(BCD),(EF) sütunlarının 15. satırları siyah dolgu beyaz yazı oluyor tabi süt = 6 olursa G,(HIJ),(KL) bu hale geliyor
A15:F15 aralığını boya demenin yolu Cells için nedir yani
s2.Select: Cells(c + 10, 1 + sut).Select
s2.Select: Cells(c + 10, 2 + sut).Select
s2.Select: Cells(c + 10, 5 + sut).Select

bunları bir kerede seç komutu nasıl olmalı

 

[Ferhat Pazarçevirdi]

mesala 15. satır da koşul gerçeklşeiyorsa
A,(BCD),(EF) sütunlarının 15. satırları siyah dolgu beyaz yazı oluyor tabi süt = 6 olursa G,(HIJ),(KL) bu hale geliyor
A15:F15 aralığını boya demenin yolu Cells için nedir yani
s2.Select: Cells(c + 10, 1 + sut).Select
s2.Select: Cells(c + 10, 2 + sut).Select
s2.Select: Cells(c + 10, 5 + sut).Select

bunları bir kerede seç komutu nasıl olmalı

Şöyle ki :

With s2.Range("A" & satir & ":F" & satir)
     With .Font
          .Bold = True
          .ColorIndex = 2
     End With
     .Interior.ColorIndex = 1
End With

NOT : "satir" değişkeninin değerinin önceden bulunduğu varsayilmiştır

 

[hsayar]

sayın fpc kastım şu bu biçimlendirmeyi yapmak için 12 satırr harcıyoruz;
ancak bu satırlar birbirine birleşik satırlar

mesala 15. satır da koşul gerçeklşeiyorsa
A,(BCD),(EF) sütunlarının 15. satırları siyah dolgu beyaz yazı oluyor tabi süt = 6 olursa G,(HIJ),(KL) bu hale geliyor
A15:F15 aralığını boya demenin yolu Cells için nedir yani
s2.Select: Cells(c + 10, 1 + sut).Select
s2.Select: Cells(c + 10, 2 + sut).Select
s2.Select: Cells(c + 10, 5 + sut).Select

bunları bir kerede seç komutu nasıl olmalı

Şöyle ki :

With s2.Range("A" & satir & ":F" & satir)
     With .Font
          .Bold = True
          .ColorIndex = 2
     End With
     .Interior.ColorIndex = 1
End With

NOT : "satir" değişkeninin değerinin önceden bulunduğu varsayilmiştır

satır değişkenimiz c+10 ve önceden bulunmuş halde......
sorun sütunda çıkıyor bu durumda sütun değişkenimizde önceden bulunmuş durumda 1 + sut (ancak no olarak) (sut=0 ise Harf Olarak A, sut = 6 ise harf olarak g) bu değeri nasıl tesbit edeceğiz

        s2.Cells((c + 10, 1 + sut ):(c + 10, 5 + sut) ).select
        Selection.Font.ColorIndex = 2
        Selection.Interior.ColorIndex = 1
        Selection.Font.Bold = True ''seçili hücreyi siyah dolgu,beyaz kalın yaz

gibi birşey istiyorum ama cells ile aralık tanımlanabiliyormu onu bilmiyorum...

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodu kendinize uyarlamaya çalışınız lütfen.

Satir = 15 [COLOR=green]'sizde bu değişken c+10 sanirim[/COLOR]
Sutun1 = 1 [COLOR=green]'ilk sütunun sıra numarası:Bu örnek için A sütunu[/COLOR]
Sutun2 = 6[COLOR=green] 'son sütunun sira numarası, Bu Örnek için F sütunu[/COLOR]
[COLOR=green]'-------------------------------------[/COLOR]
[COLOR=green]'Siz koşula göre 1 ve 6 olan sütun değerlerini[/COLOR]
[COLOR=green]'7 ve 12 olarak değiştirtirseniz[/COLOR]
[COLOR=green]'Bu sefer G ve L arasındaki, ilgili satir biçimlenir[/COLOR]
[COLOR=green]'-------------------------------------[/COLOR]
With s2.Range(s2.Cells(Satir, Sutun1), s2.Cells(Satir, Sutun2))
     With .Font
          .Bold = True
          .ColorIndex = 2
     End With
     .Interior.ColorIndex = 1
End With

 

[hsayar]

Aşağıdaki kodu kendinize uyarlamaya çalışınız lütfen.

Satir = 15 [COLOR=green]'sizde bu değişken c+10 sanirim
[/COLOR]Sutun1 = 1 [COLOR=green]'ilk sütunun sıra numarası:Bu örnek için A sütunu
[/COLOR]Sutun2 = 6[COLOR=green] 'son sütunun sira numarası, Bu Örnek için F sütunu
[/COLOR][COLOR=green]'-------------------------------------
'Siz koşula göre 1 ve 6 olan sütun değerlerini
'7 ve 12 olarak değiştirtirseniz
'Bu sefer G ve L arasındaki, ilgili satir biçimlenir
'-------------------------------------
[/COLOR]With s2.Range(s2.Cells(Sutun1, Satir), s2.Cells(Sutun2, Satir))
     With .Font
          .Bold = True
          .ColorIndex = 2
     End With
     .Interior.ColorIndex = 1
End With

''''''''''''''''''''''''''''''''''

s2.Cells((c + 10, 1 + sut )c + 10, 5 + sut) ).select

Satir = c+10 sanirim
Sutun1 = 1 + sut 'ilk sütunun sıra numarası:Bu örnek için A sütunu/sut=6 ise g
Sutun2 = 5 + sut [COLOR=red] 'son sütunun sira numarası, Bu Örnek için F sütunu 5+sut yaparsam e sütununnu bulrum ama e ve f birleştirilmiş hücre 5 + sut + 1 mi kullanmalıyım[/COLOR]

[COLOR=green]'-------------------------------------
'Siz koşula göre 1 ve 6 olan sütun değerlerini
'7 ve 12 olarak değiştirtirseniz
'Bu sefer G ve L arasındaki, ilgili satir biçimlenir
'-------------------------------------
[/COLOR]
With s2.Range(s2.Cells(1+sut, c+10), s2.Cells(5+sut, c+10))
yada
[COLOR=RED]With s2.Range(s2.Cells(1+sut, c+10), s2.Cells(5+sut+1, c+10))[/COLOR]
'sut = 0 iken 5+0= 5 ise e gücresinde değer yazılıyor
'ancak erim tanımlarken son hücre f olması lazım ancak e ve f birleştirilmiş hücre doğru kullanım
'hangisidir

     With .Font
          .Bold = True
          .ColorIndex = 2
     End With
     .Interior.ColorIndex = 1
End With

şeklinde olmalı herhalde ama hangisi deneyemedim çünkü usb diski işyerinde unutmuşum

 

[Ferhat Pazarçevirdi]

Sn.hsayar

Kusura bakmayın. 6 Nolu mesajda; Cells tanımlarındaki, satir ve sütun referanslarında syntax hatası yapmışım. Şimdi farkettim ve düzelttim.

Lütfen 6 Nolu mesajı yeniden inceleyiniz.

 

[hsayar]

....
...
...
    '12+V>>>>>>>>>>
    ElseIf s1.Cells(g, 1) = "12" And (s1.Cells(g, 2) = "V" Or s1.Cells(g, 2) = "v") Then
    c = c + 1
        'ikinci sütun kontrolü
        If c = 35 Then
        sut = 6: c = 1
        End If
        'ev stok Kayıt sayısı kontrolü
        If WorksheetFunction.CountA(s2.[e11:e44,k11:k44]) = 68 Then
        MsgBox "Tablo dolduğu için kayıt yapılamadı.", , "UYARI": Exit Sub
        End If
    '12 lik stok çıkış yazma işlemi
    s2.Cells(c + 10, 1 + sut) = s1.Cells(g, 5)
        [color=red]s2.Select: Cells(c + 10, 1 + sut).Select
        Selection.Font.ColorIndex = 2
        Selection.Interior.ColorIndex = 1
        Selection.Font.Bold = True ''seçili hücreyi siyah dolgu,beyaz kalın yaz[/color]
    s2.Cells(c + 10, 2 + sut) = UCase(s1.Cells(g, 4))
        [color=red]s2.Select: Cells(c + 10, 2 + sut).Select
        Selection.Font.ColorIndex = 2
        Selection.Interior.ColorIndex = 1
        Selection.Font.Bold = True ''seçili hücreyi siyah dolgu,beyaz kalın yaz [/color]
    s2.Cells(c + 10, 5 + sut) = s1.Cells(g, 7)
        [color=red]s2.Select: Cells(c + 10, 5 + sut).Select
        Selection.Font.ColorIndex = 2
        Selection.Interior.ColorIndex = 1
        Selection.Font.Bold = True ''seçili hücreyi siyah dolgu,beyaz kalın yaz [/color]
    '<<<<<<<<<<<<<<<<<12+V
    End If
....
....
....

Sayın fpc hocama teşekkür ederim
Kodalrın yeni hali;

    '12+V>>>>>>>>>>
    ElseIf s1.Cells(g, 1) = "12" And (s1.Cells(g, 2) = "V" Or s1.Cells(g, 2) = "v") Then
    c = c + 1
        'ikinci sütun kontrolü
        If c = 35 Then
        sut = 6: c = 1
        End If
        'ev stok Kayıt sayısı kontrolü
        If WorksheetFunction.CountA(s2.[e11:e44,k11:k44]) = 68 Then
        MsgBox "Tablo dolduğu için kayıt yapılamadı.", , "UYARI": Exit Sub
        End If
    '12 lik stok çıkış yazma işlemi
    s2.Cells(c + 10, 1 + sut) = s1.Cells(g, 5)
    s2.Cells(c + 10, 2 + sut) = UCase(s1.Cells(g, 4))
    s2.Cells(c + 10, 5 + sut) = s1.Cells(g, 7)
        '>>>>>>>>>>>>>>>>>>>>>>>biçimlendir
[color=red]        With s2.Range(s2.Cells(c + 10, 1 + sut), s2.Cells(c + 10, 5 + sut + 1))
          With .Font: .Bold = True: .ColorIndex = 2: End With: .Interior.ColorIndex = 1
        End With[/color]
        '<<<<<<<<<<<<<<<<<<<<<<<bi&#231;imlendir
'<<<<<<<<<<<<<<<<<12+V
    End If