[Yardım]  Hücredeki yazının istenilen sıradan kopyalanması

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Hücredeki yazının istenilen sıradan kopyalanması

İleti#1)  djipaska » 02 Oca 2023 20:03

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..
Kullanıcı avatarı
djipaska
Siteye Alışmış
 
Kayıt: 19 Ağu 2018 16:27
Meslek: Yok
Yaş: 32
İleti: 103
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Hücredeki yazının istenilen sıradan kopyalanması

İleti#2)  djipaska » 02 Oca 2023 20:51

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..
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
djipaska
Siteye Alışmış
 
Kayıt: 19 Ağu 2018 16:27
Meslek: Yok
Yaş: 32
İleti: 103
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

Cevap: Hücredeki yazının istenilen sıradan kopyalanması

İleti#3)  Ersin Turgut » 02 Oca 2023 22:42

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)
"Milli his ile dil arasında bağ çok kuvvetlidir. Dilin milli ve zengin olması, milli hissin gelişmesinde başlıca etkendir. Türk Dili, dillerin en zenginlerindendir. Yeter ki, bu dil şuurla işlensin. Ülkesini yüksek bağımsızlığını korumasını bilen Türk Milleti, dilini de yabancı diller boyunduruğundan kurtarmalıdır."

M.Kemal ATATÜRK
Kullanıcı avatarı
Ersin Turgut
Site Dostu
 
Adı Soyadı:Ersin Turgut
Kayıt: 30 Haz 2010 15:17
Konum: İzmir
Meslek: Bilgi İşlem ve Proje Sorumlusu
Yaş: 39
İleti: 639
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir / Bornova

Cevap: Hücredeki yazının istenilen sıradan kopyalanması

İleti#4)  djipaska » 08 Oca 2023 00:30

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??
Kullanıcı avatarı
djipaska
Siteye Alışmış
 
Kayıt: 19 Ağu 2018 16:27
Meslek: Yok
Yaş: 32
İleti: 103
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Hücredeki yazının istenilen sıradan kopyalanması

İleti#5)  abdrdvn » 09 Oca 2023 23:33

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.
Kullanıcı avatarı
abdrdvn
 
Kayıt: 09 Oca 2023 23:10
Meslek: öğrenci
Yaş: 20
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Hücredeki yazının istenilen sıradan kopyalanması

İleti#6)  djipaska » 10 Oca 2023 20:45

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
Kullanıcı avatarı
djipaska
Siteye Alışmış
 
Kayıt: 19 Ağu 2018 16:27
Meslek: Yok
Yaş: 32
İleti: 103
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Hücredeki yazının istenilen sıradan kopyalanması

İleti#7)  Yken » 11 Oca 2023 22:49

İ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
Kullanıcı avatarı
Yken
Siteye Alışmış
 
Kayıt: 07 Kas 2014 11:06
Meslek: Muhasebe
Yaş: 57
İleti: 114
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Hücredeki yazının istenilen sıradan kopyalanması

İleti#8)  djipaska » 14 Oca 2023 00:53

Oldu şkşk
Çok teşekkür ederim..
Elinize sağlık..
Kullanıcı avatarı
djipaska
Siteye Alışmış
 
Kayıt: 19 Ağu 2018 16:27
Meslek: Yok
Yaş: 32
İleti: 103
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Bing[Bot], Google Adsense [Bot] ve 3 misafir

cron
Bumerang - Yazarkafe