Çözüldü Koşullu biçimlendirilmiş veriyi kaydetmek

[k0081]

Merhaba arkadaşlar;

Excel Tablosunda ; B2:B1000 aralığındaki Arka plan rengi kırmızı olan verileri;

4 ile çarpıp, command buton ile nasıl kaydedebilirim ( C:\Deneme\ txt dosyasına..) ?

B2:B1000 hücre biçimi Metindir. Ama veri sayıdır.

 

[Erdem Akdemir]

Merhaba,

Aşağıdaki kodu dener misiniz.

Const MyFile = "C:\TestFolder\Deneme.txt"
Sub ddd()

For Each deg In Range("b2:b1000")

If deg.DisplayFormat.Interior.ColorIndex = 3 Then tutar = tutar + CLng(deg) * 4

Next deg

    Open MyFile For Output As #1
        Print #1, Trim(tutar)
    Close #1

End Sub

 

[k0081]

Erdem_34

Hocam kod çalışıyor ,dosyayı oluşturuyor... ama içeriği boş. veri yok.

 

[Erdem Akdemir]

Örnek dosyanız koda uygun olmayabilir.

 

[k0081]

Örnek dosyanız koda uygun olmayabilir.

Evet , backround kırmızı değildi... işlemi yapmamış.;

Şimdi işlem yapılıyor ama toplama alıyor...

istenen;

örnek:

B2=15
B3=80
B4=40

diyelim.;

Deneme.txt dosyasında;

1. satır = 60
2. satır= 320
3. satır= 160

olması gerekiyor.

 

[Erdem Akdemir]

Bu kodu dener misiniz.

Const MyFile = "C:\TestFolder\Deneme.txt"
Sub ddd()

    Open MyFile For Output As #1

For Each deg In Range("b2:b1000")

If deg.DisplayFormat.Interior.ColorIndex = 3 Then
        Print #1, deg.Value * 4
   End If

Next deg
Close #1

End Sub

 

[k0081]

Erdem_34

Hocam Tamamdır... Elinize sağlık.