koda ekleme yapmak istiyorum...

[euphrates55]

Sub sutungenisligi()
a = [N2:re28].Value
    For j = 1 To UBound(a, 2)
        If Application.Max(Application.Index(a, , j)) > 0 Then
            Columns(j + 13).ColumnWidth = 2
        Else
            Columns(j + 13).ColumnWidth = 0.2
        End If
    Next j
End Sub

bu koda N978:RE978 aralığını eklemek istiyorum.
sütun genişliği bu satır için 4 olacak ve 0.2 kısmı olmayacak, çünkü zaten onu bir üstte sağlıyor. teşekkürler.

 

[Muzaffer Ali]

Merhaba.

Kodun en sonuna şu satırı ekleyin.

Range("N978:RE978").ColumnWidth = 4

 

[euphrates55]

Merhaba.

Kodun en sonuna şu satırı ekleyin.

Range("N978:RE978").ColumnWidth = 4

    For j = 1 To UBound(a, 2)
        If Application.Max(Application.Index(a, , j)) > 0 Then

buradaki gibi
Range("N978:RE978") aralığında 0 dan büyük hücre varsa sadece onlar için geçerli olacak. sanırım sizinkini ekleyince tüm sütunlar 4 olacak.
ben bunun için a yerine b, j yerine k diyerek tanımlama yaptım ama çok uzun sürdü.

 

[Muzaffer Ali]

O zaman kodun en sonuna aşağıdaki kodu ekleyin.

    Dim Bak As Range
    For Each Bak In Range("N978:RE978")
        If Bak > 0 Then Bak.ColumnWidth = 4
    Next

 

[euphrates55]

teşekkürler ama tüm sütunlar 4 oluyor. If Bak.value şeklinde de aynı oluyor.

 

[Muzaffer Ali]

Önceki kodları ve benim yazdıklarımı unutalım.
Tam olarak ne istediğinizi daha açık ve bir bütün olarak ifade ederek sorarsanız cevap bulmaya çalışalım.

 

[Korhan Ayhan]

Ben durumu yanlış anlamadıysam aynı sütunlar için farklı satırlarda farklı sütun genişlikleri uygulamaya çalışıyorsunuz. Eğer durum böyleyse bunu yapamazsınız.

 

[euphrates55]

teşekkürler.

 

[Korhan Ayhan]

İki adet N-RE sütun aralığı için farklı satırlarda farklı sütun genişlikleri beklentiniz var. Durumu doğru mu anladım?

Eğer böyleyse bu işlemi yapamazsınız.

Yani;

N2 sıfırdan büyük ne olacak?
N978 sıfırdan büyük ne olacak?

 

[euphrates55]

İki adet N-RE sütun aralığı için farklı satırlarda farklı sütun genişlikleri beklentiniz var. Durumu doğru mu anladım?

Eğer böyleyse bu işlemi yapamazsınız.

Yani;

N2 sıfırdan büyük ne olacak?
N978 sıfırdan büyük ne olacak?

günaydın Korhan Bey, hafta sonu çözdüm olayı. aslında yapmıştım ama işlem çok uzun sürmüştü. şu anda olayı hallettim.

Sub sutungenisligi()
a = [N2:re28].Value
    For j = 1 To UBound(a, 2)
        If Application.Max(Application.Index(a, , j)) > 0 Then
            Columns(j + 13).ColumnWidth = 2
        Else
            Columns(j + 13).ColumnWidth = 0.2
        End If
    Next j
End Sub
Sub sutungenisligi2()
a = [N975:re975].Value
    For j = 1 To UBound(a, 2)
        If Application.Max(Application.Index(a, , j)) > 0 Then
            Columns(j + 13).ColumnWidth = 4
        End If
    Next j
End Sub

yapmak istediğim ise 1. aşamada N2:re28 aralığında sıfırdan büyük olanların sütun genişlikleri 2 olacak diğerleri 0.2 olacak. devamında ise N975:re975 satırını kontrol edecek ve sıfırdan büyük olan hücrelerin sütun genişlikleri 4 olacak, diğerleri aynı kalacak şeklindeydi.
teşekkürler.

 

[Korhan Ayhan]

Ben sorumun cevabını alamadım.

 

[euphrates55]

N2 sıfırdan büyük ne olacak? bu durumda N sütununun genişliği 2 olacak diğerleri 0.2 olacak
N978 sıfırdan büyük ne olacak? bu durumda ise N sütununun genişliği 4 olacak diğerleri sabit kalacak

 

[Korhan Ayhan]

Yani bu durumda N2 koşulu iptal olacak?

Kod ilk önce N2 hücresine bakacak sıfırdan büyük sütun genişliği 2 oldu.
Sonra N978 hücresine baktı sıfırdan büyük sütun genişliği 4 oldu.

Bu aşamada artık N2 koşulu iptal olmuş olacak. Yani artık N sütun genişliği 4 olarak kalacak.

 

[euphrates55]

Yani bu durumda N2 koşulu iptal olacak?

Kod ilk önce N2 hücresine bakacak sıfırdan büyük sütun genişliği 2 oldu.
Sonra N978 hücresine baktı sıfırdan büyük sütun genişliği 4 oldu.

Bu aşamada artık N2 koşulu iptal olmuş olacak. Yani artık N sütun genişliği 4 olarak kalacak.

evet.

 

[Korhan Ayhan]

Ben bu uyarımı şu amaçla yapmıştım;

Eğer beklentiniz N2 hücresi için sütun genişliği 2 olsun ama aynı zamanda N978 hücresi içinde sütun genişliği 4 olsun şeklinde ise bunun için yapılamaz demiştim.

Ama sizin son mesajınıza göre birinci koşul ile ikinci koşul aynı anda gerçekleşiyorsa ikinci koşul son olarak geçerlidir durumu varsa sorun yoktur.