ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[djipaska]

Merhabalar;

A1 hücresinde dıştan aldığım veri mevcut..
Örnek; A1= :12,50 olsun..
A1'de yazan :12,50 yazısının;
B1 hücresine 2,50 yazılmasını nasıl sağlayabilirim ??
Yani hücrede yazan yazının ilk 2 rakam ya da yazısının almayıp onda sonra gelenlerin başka bir hücreye kopyalanmasını nasıl sağlayabilirim ??

Teşekkürler..

[djipaska]

Ayrıca iki tarih arasında olan hücreleri toplayıp , topladığı kadarına bölme işlemini nasıl yapabiliriz ??
Örnek dosyayı paylaşıyorum..
Yardımlarınızı rica ederim..

[Ersin Turgut]

Aklıma gelen ilk çözüm; deneyiniz.

H1 hücresinde toplattım: Attığınız örneğe göre sonuç: 75,21285714 çıktı.

Kod: Tümünü seç

=ÇOKETOPLA($B$2:$B$13;$A$2:$A$13;">="&F1;$A$2:$A$13;"<="&C1)/ÇOKEĞERSAY($A$2:$A$13;">="&F1;$A$2:$A$13;"<="&C1)

[djipaska]

Cevabınız için teşekkür ederim..
F1 Hücresinde tarih sabit olmayacak..
Bu yüzden her tarih yazdığımda tüm içeriği değiştirmeyeceğim bir makro olabilir mi??

[abdrdvn]

A1 hücresinde yazan :12,50 yazısının B1 hücresine 2,50 olarak kopyalanması için aşağıdaki kodu kullanabilirsiniz:
B1 = Right(A1, 5)
Bu kod, A1 hücresinde yazan yazının sağından 5 karakterini alır ve B1 hücresine yapıştırır. Bu sayede B1 hücresine 2,50 yazısı yazılmış olur.
Eğer A1 hücresinde yazan yazının uzunluğu değişebilirse ve sürekli değişen bir veri kullanıyorsanız, aşağıdaki kodu kullanarak da B1 hücresine yazının son kısmını kopyalayabilirsiniz:
B1 = Right(A1, Len(A1) - InStr(1, A1, ","))

Bu kod, A1 hücresinde yazan yazının virgül işaretini arar ve virgül işaretinden sonraki kısmı B1 hücresine yapıştırır. Bu sayede B1 hücresine 2,50 yazısı yazılmış olur.

[djipaska]

Cevabınız için tekrar tekrar teşekkür ederim..
Aşağıdaki gibi bir kod kalıbına verdiğiniz kodu eklemeye çalışıyorum ama hata alıyorum..

Private Sub Worksheet_Activate()
If IsNumeric(Range("H5")) Or Range("H5") = "seçiniz" Then
Range("H5").Select
MsgBox " Seçim Yapmalısın !"
exit sub
else
Range("b1").ClearContents
If UCase(Range("b1").Value) = "" Then
Range("b1").Value = Right(a1, Len(a1) - InStr(1, a1, ",")).Value
End If
End Sub

[Yken]

İki "if" açılmış, biri "end if" ile kapatılmış, diğeri açık kalmış.
Ayrıca (a1) şeklinde yazılanlar range("a1") şeklinde yazılıyor.

Kod: Tümünü seç

Private Sub Worksheet_Activate()
If IsNumeric(Range("H5")) Or Range("H5") = "seçiniz" Then
Range("H5").Select
MsgBox " Seçim Yapmalısın !"
Exit Sub
Else
Range("b1").ClearContents
If UCase(Range("b1").Value) = "" Then
Range("b1").Value = Right(Range("a1"), Len(Range("a1")) - InStr(1, Range("a1"), ","))
End If
End If
End Sub


[djipaska]

Oldu
Çok teşekkür ederim..
Elinize sağlık..