(23/11/2019, 13:26)hturkavci03 yazdı: olabilirse F sütununa da B ve D sütunlarının farkını almak isterim.

Çıkarma işlemi içinse yine modüle en alttaki kod bloğunu ekleyip mesela F2 hucresine

=KompleksCikar(B2;D2)

yazmalısınız. Yine aşağı doğru sürükleyerek kopyalayabilirsiniz.

Function KompleksCikar(Hucre As Range, Hucre1 As Range) As String



Dim Hcr, Hcr1 As String



Hcr = CStr(Replace(Hucre, "*", "j"))

Hcr1 = CStr(Replace(Hucre1, "*", "j"))

Karmasik = WorksheetFunction.ImSub(Hcr, Hcr1)

KompleksCikar = Replace(Karmasik, "j", IIf(WorksheetFunction.Imaginary(Karmasik) = 1, "1*", "*"))

End Function

Önemli Not:yalniz dikkat etmeniz gereken nokta toplama fonksiyonunda aralık alındığı için ":" - 2  nokta üst üste - kullanılırken çıkarmada sadece 2 hücre olduğundan ";" -noktali virgul- kullanmalisiniz