Makroda hesaplama hatası

[ikikan]

Arkadaşlar kırmızı ile işaretlediğim kod çalışıyor fakat yanlış sonuc veriyor bunu nasıl çözebilirim?

Option Explicit
Sub PROJE1()
Dim ss1 As Integer, ss2 As Integer, say As Integer, maxsumum As Integer, Uzunluk As Integer, cıkart As Integer, sonuc1 As Integer
Dim i, e, sonuc, sonuc11, Birlestir, a1, yinele
Dim shf1, shf2 As Worksheet
Dim hucre, hucre1 As Range

Set shf2 = Sheets("VG")

Set shf1 = Sheets("PROJE")
ss1 = shf1.Range("C65500").End(3).Row
ss2 = shf2.Range("A65500").End(3).Row
shf1.Range("B3:B" & ss1).ClearContents
say = Sheets("HES").ListBox1.ListCount - 1

For i = 0 To say
If Sheets("HES").ListBox1.Selected(i) = True Then
Birlestir = ""
For e = 1 To 50

If shf2.Cells(i + 5, e).Value = Empty Then
a1 = ""
Else
a1 = " "
End If
'.....................................................................
If e = 1 Then
Birlestir = shf2.Cells(i + 5, e).Value & a1
Else

shf1.Cells(i + 3, e + 3).Value = Len(shf2.Cells(i + 5, e - 1).Value)

For Each hucre1 In shf1.Cells(2, e + 3)
sonuc1 = hucre1.Value
Next hucre1
shf1.Cells(1, e + 3) = sonuc1


maxsumum = shf1.Cells(1, e + 3).Value

Uzunluk = Len(shf2.Cells(i + 5, e - 1).Value)

cıkart = maxsumum - Uzunluk 'Çıkarma işlemi neden doğru sonuç vermiyor ?

yinele = Application.WorksheetFunction.Rept(" ", cıkart)

shf1.Cells(i + 25, e + 3).Value = cıkart

Birlestir = Birlestir & yinele & shf2.Cells(i + 5, e).Value & a1
End If
Next e
shf1.Cells(i + 3, 3).Value = Birlestir
'.....................................................................

End If
Next i

For Each hucre In shf1.Range("C3:C50")
If UCase(hucre.Value) = Empty Then
sonuc = sonuc & hucre.Value
Else
sonuc = sonuc & hucre.Value & Chr(10)
End If
Next hucre
shf1.Range("B3").Value = sonuc
Call LİSTBOX1
shf1.Range("C3:BA" & ss2).ClearContents
End Sub

 

[suleyman242]

Arkadaşlar kırmızı ile işaretlediğim kod çalışıyor fakat yanlış sonuc veriyor bunu nasıl çözebilirim?

Kod bende hiç çalışmadı galiba eksik kod var buraya yolladığın dosyada.

 

[ikikan]

Kod bende hiç çalışmadı galiba eksik kod var buraya yolladığın dosyada.

Örnek dosyayımı açamadın yoksa makromu çalışmadı?

 

[suleyman242]

Örnek dosyayımı açamadın yoksa makromu çalışmadı?

Makroyu çalıştırınca bu hatayı verdi yani makro çalışmadı.

 

[Ömer]

Merhaba,

Karışık bir dosyada sadece bir kısmı sormuşsunuz fakat açıklama yapmamışsınız. Sonucun yanlış olduğunu nereden görebiliriz. Mesaj ile baktığımda bir yanlışlık yok gibi.

Kırmızı kodların altına ilave ederek kodu çalıştırıp gözlemledim, hatalı çıkarma işlemi göremedim.

MsgBox maxsumum & " - " & Uzunluk & "........  " & cıkart

.

 

[ikikan]

Merhaba,

Karışık bir dosyada sadece bir kısmı sormuşsunuz fakat açıklama yapmamışsınız. Sonucun yanlış olduğunu nereden görebiliriz. Mesaj ile baktığımda bir yanlışlık yok gibi.

Kırmızı kodların altına ilave ederek kodu çalıştırıp gözlemledim, hatalı çıkarma işlemi göremedim.

MsgBox maxsumum & " - " & Uzunluk & "........  " & cıkart

.

Ömer Bey aslında haklısınız çıkarma doğru işliyor fakat asıl yapmak istediğim VG sayfasındaki örnek B sütunundaki hücerlerin max karakter sayısını alıp o sütundaki hücrelerdeki karakter sayısından çıkartmak, geriye kalan değerlerle boşluk yinelemek ve consolas yazı sitili ile bir hücrede tablo oluşturmak

sorun kod bunu yapmıyor max karakter sayısından hücredeki karakter sayısını çıkarmıyor birbirinden çıkarması....

bir array, dizin makrosu yazmak lazım ama kafam durdu örnek kodda bulamadım..

 

[ikikan]

Arkadaşlar bu şekil bir kod yazılamazmı?