merhabalar. formda yeniyim. altta belirttiğim kodlamayı daha kısa şekilde nasıl yazabilirim. formülü satırlara doğru çoğaltabiliyorum. ama sütunlara dogru çoğaltamadım. tek tek yazmak mı gerekiyor her sütuna. normal formül yaptıgımızda mouse ile formülü sola veya saga kaydırınca formül otomatik düzenleniyor. ama wba da bunu (döngüyü) bulamadım.
s3.Range("AS" & i) = s3.Range("C" & i) - s3.Range("CE" & i)
s3.Range("AT" & i) = s3.Range("AS" & i) - s3.Range("CF" & i)
s3.Range("AU" & i) = s3.Range("AT" & i) - s3.Range("CG" & i)
s3.Range("AV" & i) = s3.Range("AU" & i) - s3.Range("CH" & i)
s3.Range("AW" & i) = s3.Range("AV" & i) - s3.Range("CI" & i)
s3.Range("AX" & i) = s3.Range("AW" & i) - s3.Range("CJ" & i)
s3.Range("AY" & i) = s3.Range("AX" & i) - s3.Range("CK" & i)
s3.Range("AZ" & i) = s3.Range("AY" & i) - s3.Range("CL" & i)
s3.Range("BA" & i) = s3.Range("AZ" & i) - s3.Range("CM" & i)
s3.Range("BB" & i) = s3.Range("BA" & i) - s3.Range("CN" & i)
s3.Range("BC" & i) = s3.Range("BB" & i) - s3.Range("CO" & i)
s3.Range("BD" & i) = s3.Range("BC" & i) - s3.Range("CP" & i)
s3.Range("BE" & i) = s3.Range("BD" & i) - s3.Range("CQ" & i)
s3.Range("BF" & i) = s3.Range("BE" & i) - s3.Range("CR" & i)
s3.Range("BG" & i) = s3.Range("BF" & i) - s3.Range("CS" & i)
s3.Range("BH" & i) = s3.Range("BG" & i) - s3.Range("CT" & i)
s3.Range("BI" & i) = s3.Range("BH" & i) - s3.Range("CU" & i)
s3.Range("BJ" & i) = s3.Range("BI" & i) - s3.Range("CV" & i)
s3.Range("BK" & i) = s3.Range("BJ" & i) - s3.Range("CW" & i)
s3.Range("BL" & i) = s3.Range("BK" & i) - s3.Range("CX" & i)
s3.Range("BM" & i) = s3.Range("BL" & i) - s3.Range("CY" & i)
s3.Range("BN" & i) = s3.Range("BM" & i) - s3.Range("CZ" & i)
s3.Range("BO" & i) = s3.Range("BN" & i) - s3.Range("DA" & i)
s3.Range("BP" & i) = s3.Range("BO" & i) - s3.Range("DB" & i)
s3.Range("BQ" & i) = s3.Range("BP" & i) - s3.Range("DC" & i)
s3.Range("BR" & i) = s3.Range("BQ" & i) - s3.Range("DD" & i)
s3.Range("BS" & i) = s3.Range("BR" & i) - s3.Range("DE" & i)
s3.Range("BT" & i) = s3.Range("BS" & i) - s3.Range("DF" & i)
s3.Range("BU" & i) = s3.Range("BT" & i) - s3.Range("DG" & i)
s3.Range("BV" & i) = s3.Range("BU" & i) - s3.Range("DH" & i)
s3.Range("BW" & i) = s3.Range("BV" & i) - s3.Range("DI" & i)
s3.Range("BX" & i) = s3.Range("BW" & i) - s3.Range("DJ" & i)
s3.Range("BY" & i) = s3.Range("BX" & i) - s3.Range("DK" & i)
s3.Range("BZ" & i) = s3.Range("BY" & i) - s3.Range("DL" & i)
s3.Range("CA" & i) = s3.Range("BZ" & i) - s3.Range("DM" & i)
s3.Range("CB" & i) = s3.Range("CA" & i) - s3.Range("DN" & i)
End Sub
s3.Range("AS" & i) = s3.Range("C" & i) - s3.Range("CE" & i)
s3.Range("AT" & i) = s3.Range("AS" & i) - s3.Range("CF" & i)
s3.Range("AU" & i) = s3.Range("AT" & i) - s3.Range("CG" & i)
s3.Range("AV" & i) = s3.Range("AU" & i) - s3.Range("CH" & i)
s3.Range("AW" & i) = s3.Range("AV" & i) - s3.Range("CI" & i)
s3.Range("AX" & i) = s3.Range("AW" & i) - s3.Range("CJ" & i)
s3.Range("AY" & i) = s3.Range("AX" & i) - s3.Range("CK" & i)
s3.Range("AZ" & i) = s3.Range("AY" & i) - s3.Range("CL" & i)
s3.Range("BA" & i) = s3.Range("AZ" & i) - s3.Range("CM" & i)
s3.Range("BB" & i) = s3.Range("BA" & i) - s3.Range("CN" & i)
s3.Range("BC" & i) = s3.Range("BB" & i) - s3.Range("CO" & i)
s3.Range("BD" & i) = s3.Range("BC" & i) - s3.Range("CP" & i)
s3.Range("BE" & i) = s3.Range("BD" & i) - s3.Range("CQ" & i)
s3.Range("BF" & i) = s3.Range("BE" & i) - s3.Range("CR" & i)
s3.Range("BG" & i) = s3.Range("BF" & i) - s3.Range("CS" & i)
s3.Range("BH" & i) = s3.Range("BG" & i) - s3.Range("CT" & i)
s3.Range("BI" & i) = s3.Range("BH" & i) - s3.Range("CU" & i)
s3.Range("BJ" & i) = s3.Range("BI" & i) - s3.Range("CV" & i)
s3.Range("BK" & i) = s3.Range("BJ" & i) - s3.Range("CW" & i)
s3.Range("BL" & i) = s3.Range("BK" & i) - s3.Range("CX" & i)
s3.Range("BM" & i) = s3.Range("BL" & i) - s3.Range("CY" & i)
s3.Range("BN" & i) = s3.Range("BM" & i) - s3.Range("CZ" & i)
s3.Range("BO" & i) = s3.Range("BN" & i) - s3.Range("DA" & i)
s3.Range("BP" & i) = s3.Range("BO" & i) - s3.Range("DB" & i)
s3.Range("BQ" & i) = s3.Range("BP" & i) - s3.Range("DC" & i)
s3.Range("BR" & i) = s3.Range("BQ" & i) - s3.Range("DD" & i)
s3.Range("BS" & i) = s3.Range("BR" & i) - s3.Range("DE" & i)
s3.Range("BT" & i) = s3.Range("BS" & i) - s3.Range("DF" & i)
s3.Range("BU" & i) = s3.Range("BT" & i) - s3.Range("DG" & i)
s3.Range("BV" & i) = s3.Range("BU" & i) - s3.Range("DH" & i)
s3.Range("BW" & i) = s3.Range("BV" & i) - s3.Range("DI" & i)
s3.Range("BX" & i) = s3.Range("BW" & i) - s3.Range("DJ" & i)
s3.Range("BY" & i) = s3.Range("BX" & i) - s3.Range("DK" & i)
s3.Range("BZ" & i) = s3.Range("BY" & i) - s3.Range("DL" & i)
s3.Range("CA" & i) = s3.Range("BZ" & i) - s3.Range("DM" & i)
s3.Range("CB" & i) = s3.Range("CA" & i) - s3.Range("DN" & i)
End Sub