Arsanın hisselerini bulmak.

[31130]

öncelikle bu forumu uzaktan takip eden biri olarak ilk mesajım ve ilk yardım istemem konusunda forumdaki herkesden özür dilerim.
Her konuda takıldığım anlamadığım bir konu olduğunda ilk başvurdum yer olan bu forum sayfası olduğundan yardım istediğim konu hakkında yardımcı olan veya olmayan herkese şimdiden teşekkür ederim.

ekli örnek sorgu dosyada açıkladığım konularda yardımcı olabirirseniz sevinir.

 

[Orion1]

Yardım ,lütfen yardım,acil tardım, gibi konu başlıkları forum kurallarına uymayan başlıklardır.Bu tür başlıklar içeren konular geri dönüşüm kutusuna taşınmaktadaır.Fakat bu sizin ilk mesajınız olduğu için şimdiilik taşımıyorum.
Lütfen bundan sonra konu başlıklarını konuyu anlatan şekilde seçiniz.

 

[31130]

teşekkür ederim.

 

[Orion1]

Dosyanız ekte.

Sub hisse()
Dim i As Long
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("AF3:AF65536").ClearContents
For i = 3 To Cells(65536, "M").End(xlUp).Row
    Cells(i, "AF").Value = (CDbl(Replace(Cells(i, "M").Value, "M2", "")) _
    / Cells(i, "F").Value) * Cells(i, "E").Value
Next i
Application.ScreenUpdating = True
MsgBox "Hisseler AF sütununa çıkarıldı.", vbOKOnly + vbInformation, "HİSSE"
    
End Sub

 

[uzmanamele]

merhaba

1. sorunuz için;
m sütununu seçin,
ctrl+f
bul :m2
değiştir: boş bırakın
tümünü değiştir.

2. sorunuzu anlayamadım.

 

[31130]

Teşekkürler

Evren Gizlen
Göstermiş olduğun ilgi ve alakadan ve hazırlamış olduğun dosya için çok teşekkür ederim.
Saygılarımlar

 

[Orion1]

Evren Gizlen
Göstermiş olduğun ilgi ve alakadan ve hazırlamış olduğun dosya için çok teşekkür ederim.
Saygılarımlar

Rica ederim.
Saygılar benden.