Araç Servis Takip Programı (AST-v.2) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1656.0

Gönderen Konu: Yardım rica ediyorum  (Okunma sayısı 28056 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Bedrettin

  • Excelce Onbaşı
  • **
  • İleti: 6
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: BEDRETTİN DEMİRCİ
  • Doğum Yılınız: 1970
  • İl / İlçe: yenimahalle ankara
Yardım rica ediyorum
« : 21 Aralık 2023, 16:44:51 »
Merhaba Arkadaşlar
Aşağıdaki konu hakkında yardımcı olursanız çok memnun olurum

Aşağıdaki kod grup toplam alıyor
2 satır ve fazlasında doğru toplam alıyor fakat  tek satır varsa toplamayı iki satırdan yapıyor
tek satır olabilir mi ?


Sub cari_mirac()
  Application.ScreenUpdating = False
    For i = Range("a65").End(3).Row To 2 Step -1
      If Range("a" & i).Value <> Range("a" & i - 1).Value Then
        If i = 2 Then i = -1 Else Range("a" & i & ":a" & i + 1).EntireRow.Insert
        sat = IIf(Application.CountBlank(Range(Range("c" & i + 3), Range("c" & i + 3).End(4))) > 0, 1, Range("c" & i + 3).End(4).Row - i - 2)
       
        Range("c" & i + 3).Offset(sat, 0).Formula = "=SUM(R[-" & sat + 1 & "]C:R[-1]C)"
        Range("b" & i + 3).Offset(sat, 0).Value = "TOPLAM : "
        Range("b" & i + 3).Offset(sat, 0).HorizontalAlignment = xlRight
         Range("c" & i + 3).End(4).Offset(0, 0).Font.Color = 12458
         Range("c" & i + 3).End(4).Offset(0, 0).Font.Bold = True
      End If
    Next
  Application.ScreenUpdating = True
 
End Sub
« Son Düzenleme: 21 Aralık 2023, 16:48:59 Gönderen: Bedrettin »

Çevrimdışı Bedrettin

  • Excelce Onbaşı
  • **
  • İleti: 6
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: BEDRETTİN DEMİRCİ
  • Doğum Yılınız: 1970
  • İl / İlçe: yenimahalle ankara
Ynt: Yardım rica ediyorum
« Yanıtla #1 : 21 Aralık 2023, 16:45:58 »
Eğer Excel örnek dosya isterseniz paylaşabilirim
« Son Düzenleme: 21 Aralık 2023, 16:52:35 Gönderen: Bedrettin »

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1414
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: Yardım rica ediyorum
« Yanıtla #2 : 22 Aralık 2023, 23:58:26 »
Merhaba Bedrettin Bey,

Ekran görüntüsü veya örnek dosya üzerinde anlatabilir misiniz yapılmak istenen işlemi?

Teşekkürler.
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)

Çevrimdışı Bedrettin

  • Excelce Onbaşı
  • **
  • İleti: 6
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: BEDRETTİN DEMİRCİ
  • Doğum Yılınız: 1970
  • İl / İlçe: yenimahalle ankara
Ynt: Yardım rica ediyorum
« Yanıtla #3 : 23 Aralık 2023, 09:06:18 »
ÖRNEK DOSYAYI YÜKLEDİM

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1414
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: Yardım rica ediyorum
« Yanıtla #4 : 23 Aralık 2023, 11:16:57 »
Ekli dosyayı kontrol eder misiniz?
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)

Çevrimdışı Bedrettin

  • Excelce Onbaşı
  • **
  • İleti: 6
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: BEDRETTİN DEMİRCİ
  • Doğum Yılınız: 1970
  • İl / İlçe: yenimahalle ankara
Ynt: Yardım rica ediyorum
« Yanıtla #5 : 23 Aralık 2023, 12:33:16 »
dosya bende açılmıyor
hasarlı diye uyarı veriyor Bülent bey

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1414
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: Yardım rica ediyorum
« Yanıtla #6 : 23 Aralık 2023, 12:35:53 »
Kodu şu şekilde değiştirdim:

Kod: [Seç]
Sub cari_mirac()
 Application.ScreenUpdating = False
    For i = Range("a65536").End(3).Row To 2 Step -1
      If Range("a" & i).Value <> Range("a" & i - 1).Value Then
        'Range("a" & i & ":a" & i + 2).EntireRow.Insert
        If i = 2 Then i = 0 Else Range("a" & i & ":a" & i + 1).EntireRow.Insert
        sat = IIf(Application.CountBlank(Range(Range("c" & i + 3), Range("c" & i + 3).End(4))) > 0, 1, Range("c" & i + 3).End(4).Row - i - 2)
       
        If sat = 1 Then
           Range("c" & i + 2).Offset(sat, 0).Formula = "=SUM(R[-" & sat & "]C:R[-1]C)"
           Range("b" & i + 2).Offset(sat, 0).Value = "TOPLAM : "
           Range("b" & i + 2).Offset(sat, 0).HorizontalAlignment = xlRight
           
           Range("E" & i + 2).Offset(sat, 0).Formula = "=SUM(RC[-2]+RC[-2]*20%)"
       
           Range("E" & i + 2).End(4).Offset(0, 0).Font.Color = 12458
           Range("E" & i + 2).End(4).Offset(0, 0).Font.Bold = True
       
       
           Range("c" & i + 2).End(4).Offset(0, 0).Font.Color = 12458
           Range("c" & i + 2).End(4).Offset(0, 0).Font.Bold = True
           
           Range("B" & i + 2).End(4).Offset(0, 0).Font.Color = 12458
           Range("B" & i + 2).End(4).Offset(0, 0).Font.Bold = True
           
           Range("E" & i + 2).End(4).Offset(0, 0).Font.Color = 12458
           Range("E" & i + 2).End(4).Offset(0, 0).Font.Bold = True
           Range("E" & i + 2).End(4).Offset(0, 0).NumberFormat = "#,##0.00"

        Else
           Range("c" & i + 3).Offset(sat, 0).Formula = "=SUM(R[-" & sat + 1 & "]C:R[-1]C)"
           Range("b" & i + 3).Offset(sat, 0).Value = "TOPLAM : "
           Range("b" & i + 3).Offset(sat, 0).HorizontalAlignment = xlRight
           
           Range("E" & i + 3).Offset(sat, 0).Formula = "=SUM(RC[-2]+RC[-2]*20%)"
       
           Range("E" & i + 3).End(4).Offset(0, 0).Font.Color = 12458
           Range("E" & i + 3).End(4).Offset(0, 0).Font.Bold = True
       
       
           Range("c" & i + 3).End(4).Offset(0, 0).Font.Color = 12458
           Range("c" & i + 3).End(4).Offset(0, 0).Font.Bold = True
           
           Range("B" & i + 3).End(4).Offset(0, 0).Font.Color = 12458
           Range("B" & i + 3).End(4).Offset(0, 0).Font.Bold = True
           
           Range("E" & i + 3).End(4).Offset(0, 0).Font.Color = 12458
           Range("E" & i + 3).End(4).Offset(0, 0).Font.Bold = True
           Range("E" & i + 3).End(4).Offset(0, 0).NumberFormat = "#,##0.00"
       
        End If
      End If
    Next
   
'Call ALT_TOPLAM_AL
 
  Application.ScreenUpdating = True
 
End Sub
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1414
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: Yardım rica ediyorum
« Yanıtla #7 : 23 Aralık 2023, 13:20:39 »
Ekli dosyayı dener misini?
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)

Çevrimdışı Bedrettin

  • Excelce Onbaşı
  • **
  • İleti: 6
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: BEDRETTİN DEMİRCİ
  • Doğum Yılınız: 1970
  • İl / İlçe: yenimahalle ankara
Ynt: Yardım rica ediyorum
« Yanıtla #8 : 23 Aralık 2023, 20:26:03 »
Teşekkür ederim
ama hata var
tek satır olduğu zaman hata vermiyor
ama iki satırsa hata veriyor
toplamı ikinci satırın altına yapması gerekirken ikinci satıra yapıyor