Denkleştirme

[Barons]

merhaba
Ekli dosyanın içinde açıklamaya çalıştım.İlginç vede zor bir durum...yardımcı olacak arkadaşlara çok teşekkürler...
sorun: AG10 hücresinde bir sayı var ve bu sayı AG kolonunda bazen tek bir hücrede bazende bir kaç hücrenin toplamı şeklinde.
örnek: AG10 hücresindekisayı 230 olsun.bu sayı tüm sütun boyunca tam veya parçalı olarak tekrarlanmaktadır.AG15 ve AG17 hücrelerinde tam olarak görülürken,AG19-AG27 arasında 210,10,10 şeklinde 3 parçada görülebilmektedir.
Bu parçalı veya tam farketmiyor,amacım; sonucu AI kolonu boyunca (mavi renkli) olan hücrelerde göstermek.
Dosyada daha tafsilatlı açıklama vardır.formul yada makro farketmez ama formulle çok zor olduğunuda düşünüyorum.

teşekkürler

 

[halit3]

ekli dosyayı irdeleyiniz.

 

[Barons]

Halit hocam süpersin...

uyumsuzluk var yerine aynı 230 gibi onuda toplatmak mümkünmüdür?
örnek:AG53:AG57 arası için sadece AI57 hücresine 220 yazdırmak gibi..

eline sağlık hocam,çok teşekkürler

 

[Barons]

Hocam birde bu 230000 değeri sürekli değişeceğinden kodda 230000 yerine, o hücreyi yani AG10 diye yazsak olurmu? Bunuda hallederseniz çok sevinirim.

 

[halit3]

Halit hocam süpersin...

uyumsuzluk var yerine aynı 230 gibi onuda toplatmak mümkünmüdür?
örnek:AG53:AG57 arası için sadece AI57 hücresine 220 yazdırmak gibi..

eline sağlık hocam,çok teşekkürler

bu kodu denermisiniz.

Sub aktar()
deg1 = 0
deg2 = 0
deg3 = 0
kontrol = Worksheets(ActiveSheet.Name).Cells(10, 33).Value
For j = 10 To Worksheets(ActiveSheet.Name).[AG65536].End(3).Row
deg1 = deg1 + CDbl(Worksheets(ActiveSheet.Name).Cells(j, 33).Value)
If deg1 = kontrol Then
Worksheets(ActiveSheet.Name).Cells(j, 35).Value = deg1
deg1 = 0
End If
If deg1 > kontrol + 1 Then
deg3 = 0
For i = deg2 + 1 To j - 1
If Worksheets(ActiveSheet.Name).Cells(i, 33).Value > 0 Then
deg3 = deg3 + CDbl(Worksheets(ActiveSheet.Name).Cells(i, 33).Value)
yer = i
End If
Next
Worksheets(ActiveSheet.Name).Cells(yer, 35).Value = deg3
deg1 = 0
j = j - 1
End If
If Worksheets(ActiveSheet.Name).Cells(j, 35).Value > 0 Then
deg2 = j
End If
Next j
MsgBox "işlem tamam  "
End Sub

 

[Barons]

Hocam son gönderdiğiniz kod tam istediğim gibi...elinize sağlık...
son bir şey var...
çok şey istemiş oluyorum ama "uyumsuzluk var" denilen verileri AJ sütununda göstermek istiyorum (sadece toplamını yani örnek: 220 değerini)

tekrar çok teşekkürler...Allah razı olsun

 

[halit3]

burayı

Worksheets(ActiveSheet.Name).Cells(yer, 35).Value = deg3

bununla değiştirin

Worksheets(ActiveSheet.Name).Cells(yer, 36).Value = deg3

 

[Barons]

Hocam çok teşekkürler...çok makbule geçti...

 

[mehmet76]

firma listesi

ekli dosyada 0 olan değerlerde sütun gizlenmesini istiyorum yapabilirmiyiz acaba yardımcı olurmusunuz

 

[Barons]

halit Hocam kusura bakmayın sizide yoruyorum ama yeni bir durum ortaya çıktı.

AK sütununada parçalı olan 230.000 ları atmam gerekiyor.örnek dosyada el ile kırmızı renkli gösterdim.
tekrar teşekkürler

 

[halit3]

halit Hocam kusura bakmayın sizide yoruyorum ama yeni bir durum ortaya çıktı.

AK sütununada parçalı olan 230.000 ları atmam gerekiyor.örnek dosyada el ile kırmızı renkli gösterdim.
tekrar teşekkürler

ekli dosyayı kontrol ediniz.

 

[halit3]

ekli dosyada 0 olan değerlerde sütun gizlenmesini istiyorum yapabilirmiyiz acaba yardımcı olurmusunuz

sayın mehmet76

sorunu başka konu başlığı altında sorsaydınız cevap alma durumunuz çabuklaşırdı.

ekli dosyaya bir bakınız.

 

[Barons]

Halit hocam eline sağlık süper olmuş...renklendirmede yapmışsın..çok teşekkürler

 

[halit3]

Halit hocam eline sağlık süper olmuş...renklendirmede yapmışsın..çok teşekkürler

iyi çalışmalar

 

[Barons]

Halit hocam tekrar dönüş için kusuruma bakmayın...örnek dosyada çalışan makro ,orjinal dosyada hata veriyor.Hücre-satır sütun noları hepsi aynı...neden oluyor anlayamadım..tek fark örnek dosyada sadece rakam var...orjinal dosyada ise AG ve AH sütunları baştan aşağı formullu..bundan olabilirmi acaba?Kodda bir değişiklik gerekirmi?
Birde sizin gönderdiğiniz dosyada sütun başlıkları rakam olmuş..tekrar nasıl A,B,C.... şekline çevirebilirim.
Teşekkürler

 

[halit3]

örnek dosyanı gönder bir bakalım.