kısaltma içeren hücreyi başka hücrede tam yazmasını sağlamak

[dj_iso06]

Bir hücrede bulunanbir kaç harfi kullanarak başka hücrede tam açılımını yazmak istiyorum.. bunun formülü varmıdır..

örnek; UK.BDY.ÇİLEK a1 hücresinde bunun yazılı olduğunu varsayalım..
a1 hücresi "BDY" içeriyorsa b1 hücresine sadece BODY yazmasını istiyorum..
PNT.679SAND a1 hücresinde bunu yazılı olduğunu varsayıl..
a1 hücresi "PNT" içeriyorsa b2 hücresinde PANTOLON yazmasını istiyorum..
30 civarı değişken kısaltmalar var ve tek hücrede ne içeriyorsa onu yazsın istiyorum..

şimdiden teşekkürler..

 

[Ergün Güler]

Bir hücrede bulunanbir kaç harfi kullanarak başka hücrede tam açılımını yazmak istiyorum.. bunun formülü varmıdır..

örnek; UK.BDY.ÇİLEK a1 hücresinde bunun yazılı olduğunu varsayalım..
a1 hücresi "BDY" içeriyorsa b1 hücresine sadece BODY yazmasını istiyorum..
PNT.679SAND a1 hücresinde bunu yazılı olduğunu varsayıl..
a1 hücresi "PNT" içeriyorsa b2 hücresinde PANTOLON yazmasını istiyorum..
30 civarı değişken kısaltmalar var ve tek hücrede ne içeriyorsa onu yazsın istiyorum..

şimdiden teşekkürler..

Selam,
Foruma hoş geldiniz.
Bir örnek dosya hazırlayınız. Sayfanın birinin, bir sütunda kısaltmalar diğer sütunda açıklamaları olsun. Daha sonra örnek bir sayfa hazırlayınız ki, çözüm bulunabilsin.

İyi çalışmalar.

 

[dj_iso06]

Selam,
Foruma hoş geldiniz.
Bir örnek dosya hazırlayınız. Sayfanın birinin, bir sütunda kısaltmalar diğer sütunda açıklamaları olsun. Daha sonra örnek bir sayfa hazırlayınız ki, çözüm bulunabilsin.

İyi çalışmalar.

hoşbulduk hocam.. istediğiniz örneği hazırladım.. yalnız makro ile değilde formulle olursa çok daha iyi olur son çare makro

 

[dj_iso06]

Selam,
Foruma hoş geldiniz.
Bir örnek dosya hazırlayınız. Sayfanın birinin, bir sütunda kısaltmalar diğer sütunda açıklamaları olsun. Daha sonra örnek bir sayfa hazırlayınız ki, çözüm bulunabilsin.

İyi çalışmalar.

hoşbulduk hocam dosyayı hazırladım öncelik formül, olmazsa makro son çare olsun size zahmet.. şimdiden teşekkürler..

 

[Ergün Güler]

hoşbulduk hocam dosyayı hazırladım öncelik formül, olmazsa makro son çare olsun size zahmet.. şimdiden teşekkürler..

Selam,

Fonksiyonlar ile çözüm bulamadım. Makrolar ile bulabildim.

Sub KISALTMALARI_BUL()
Dim kis As Worksheet
Dim syf As Worksheet
Dim kisaltma As String
Dim aciklama As String

Dim aralik, bulunan As Range

Set kis = Worksheets("kısaltmalar")
Set syf = Worksheets("ana sayfa")

kis_son = kis.Range("A65536").End(3).Row

syf_D_son = syf.Range("D65536").End(3).Row
syf_N_son = syf.Range("N65536").End(3).Row

syf_son = WorksheetFunction.Max(syf_D_son, syf_N_son)
syf.Range("B2:B5").ClearContents
syf.Range("B7:B10").ClearContents
syf.Range("L2:L5").ClearContents
syf.Range("L7:L10").ClearContents

Set aralik = syf.Range("D2:N" & syf_son)
Application.Calculation = xlCalculationManual
For i = 2 To kis_son
kisaltma = kis.Cells(i, "A")
aciklama = kis.Cells(i, "B")


Set bulunan = aralik.Find(kisaltma, , xlValues)
If Not bulunan Is Nothing Then
ilkadres = bulunan.Address
Do
satir = bulunan.Row
kolon = bulunan.Column
If kolon = 4 Then syf.Cells(satir, "B") = aciklama
If kolon = 14 Then syf.Cells(satir, "L") = aciklama

Set bulunan = aralik.FindNext(bulunan)
Loop While Not bulunan Is Nothing And bulunan.Address <> ilkadres
End If

Next
Application.Calculation = xlCalculationAutomatic
MsgBox "Sayın " & Environ("username") & "," & vbLf _
& " Kısaltma Tamamlama İşlemi Tamamlanmıştır.", vbInformation, _
"Created by Ergün Güler"

End Sub

İyi çalışmalar.

 

[dj_iso06]

hocam ellerine sağlık çok güzel olmuşallah razı olsun.. yalnız ben bunu 30,000 çeşit barkod ve ürün üzerinde kullanacam.. bu 8 kısaltma dışında daha 40 ı geçkin kısaltma var onlarıda dahil ederek nasıl uygulayabilirim.. makro kodlarından pek anlamam.. biraz açıklayabilirmisiniz.

 

[Ergün Güler]

hocam ellerine sağlık çok güzel olmuşallah razı olsun.. yalnız ben bunu 30,000 çeşit barkod ve ürün üzerinde kullanacam.. bu 8 kısaltma dışında daha 40 ı geçkin kısaltma var onlarıda dahil ederek nasıl uygulayabilirim.. makro kodlarından pek anlamam.. biraz açıklayabilirmisiniz.

Selam,
8'den daha fazla kısaltma kullanabilirsiniz. Tek yapmanız gereken, "kısaltmalar" adlı sayfaya kısaltmak ve açıklamaları girmek. kodlar zaten istediğiniz kadar kısaltma girmenize musaade ediyor. Deneyiniz ve görünüz.

"anasayfa" adlı sayfanızın da sütunlarını değiştirmeden satırını istediğiniz kadar artırabilirsiniz. Deneyiniz ve görünüz.

Sütun yerlerini değiştirmek isterseniz kodları incelerseniz, size ipucu verecektir. Eğer böyle bir şeye ihtiyaç duyar ve çözemezseniz, aynı konu altında sorunuzu sorabilirsiniz.

İyi çalışmalar.

 

[dj_iso06]

Selam,
8'den daha fazla kısaltma kullanabilirsiniz. Tek yapmanız gereken, "kısaltmalar" adlı sayfaya kısaltmak ve açıklamaları girmek. kodlar zaten istediğiniz kadar kısaltma girmenize musaade ediyor. Deneyiniz ve görünüz.

"anasayfa" adlı sayfanızın da sütunlarını değiştirmeden satırını istediğiniz kadar artırabilirsiniz. Deneyiniz ve görünüz.

Sütun yerlerini değiştirmek isterseniz kodları incelerseniz, size ipucu verecektir. Eğer böyle bir şeye ihtiyaç duyar ve çözemezseniz, aynı konu altında sorunuzu sorabilirsiniz.

İyi çalışmalar.

hocam kendi yapmış olduğum çalışma kitabında uyguladım.. inceleyerek kodları.. yalnız bir sorun var barkod satırı boş olduğunda makro çalıştıktan sonra açıklama bölümününde boş olması lazım çünkü koruma altına aldığım vakit kimse o satıra etki edemeyecek.. önceki yazılı olanın otomatik olarak silinmesi lazım bu konuda yardımcı olabilirmisiniz..

 

[Ergün Güler]

hocam kendi yapmış olduğum çalışma kitabında uyguladım.. inceleyerek kodları.. yalnız bir sorun var barkod satırı boş olduğunda makro çalıştıktan sonra açıklama bölümününde boş olması lazım çünkü koruma altına aldığım vakit kimse o satıra etki edemeyecek.. önceki yazılı olanın otomatik olarak silinmesi lazım bu konuda yardımcı olabilirmisiniz..

Selam,
Haklısınız. 5.sıradaki kodları güncelledim.
İyi çalışmalar.

 

[Ergün Güler]

Selam,
Özelden sorduğunuz soruya binaen;
Kodlarınız aynı ad ile Module1'de kalsın.
Sayfanız aktif olunca kodların çalışması için, anasayfa sayfasının kod sayfasına;

Private Sub Worksheet_Activate()
Call KISALTMALARI_BUL
End Sub

Kitap açılırken kodların çalışması için ThisWorkbook kod sayfasına;

Private Sub Workbook_Open()
Call KISALTMALARI_BUL
End Sub

Tabi kodlar çalışırken karşınıza çıkan mesaj kutusunun iptalı için Module1'deki MsgBox.... satırı öncesi, aşağıdaki gibi, bir tırnak ( ' ) işareti koymanız yeterlidir.

[COLOR="Red"]'[/COLOR]MsgBox "Sayın " & Environ("username") & "," & vbLf _
& " Kısaltma Tamamlama İşlemi Tamamlanmıştır.", vbInformation, _
"Created by Ergün Güler"

 

[dj_iso06]

Selam,
Özelden sorduğunuz soruya binaen;
Kodlarınız aynı ad ile Module1'de kalsın.
Sayfanız aktif olunca kodların çalışması için, anasayfa sayfasının kod sayfasına;

Private Sub Worksheet_Activate()
Call KISALTMALARI_BUL
End Sub

Kitap açılırken kodların çalışması için ThisWorkbook kod sayfasına;

Private Sub Workbook_Open()
Call KISALTMALARI_BUL
End Sub

Tabi kodlar çalışırken karşınıza çıkan mesaj kutusunun iptalı için Module1'deki MsgBox.... satırı öncesi, aşağıdaki gibi, bir tırnak ( ' ) işareti koymanız yeterlidir.

[COLOR="Red"]'[/COLOR]MsgBox "Sayın " & Environ("username") & "," & vbLf _
& " Kısaltma Tamamlama İşlemi Tamamlanmıştır.", vbInformation, _
"Created by Ergün Güler"

kodları benim devreye sokmam gayet iyi hocam.. ben kitap açıldıktan sonra en başta güvenlik uyarısı geliyor ya orda yazıyor makrolar devredışı diye onu sormadan direk etkinleştirmesini istiyorum sadece benim bilgisayarda değil tüm bilgisayarlarda..

 

[Ergün Güler]

ben kitap açıldıktan sonra en başta güvenlik uyarısı geliyor ya orda yazıyor makrolar devredışı diye onu sormadan direk etkinleştirmesini istiyorum sadece benim bilgisayarda değil tüm bilgisayarlarda..

Selam,
Kendi PC'nizdeki Excel seçenekleri ile bunu yapabilirsiniz. Başka bilgisayarda asla.

İyi çalışmalar.

 

[dj_iso06]

selam,
kendi pc'nizdeki excel seçenekleri ile bunu yapabilirsiniz. Başka bilgisayarda asla.

Iyi çalışmalar.

çok teşekkür ederim hocam sağolun.. Hakkınızı helal edin hayırlı geceler...

 

[Ergün Güler]

çok teşekkür ederim hocam sağolun.. Hakkınızı helal edin hayırlı geceler...

Selam,
İyi geceler.

 

[dj_iso06]

teşekkürler

Selam,
İyi geceler.

hallettim hocam herşey için tekrar teşekkürler..

 

[Ergün Güler]

hallettim hocam herşey için tekrar teşekkürler..

Selam,
Ben teşekkür ederim.
iyi çalışmalar

 

[Crazy_M]

Merhaba. Ben de bu konu hakkında yardım isteyecektim. Ama maalesef site altın üyelik falan çıkarmış bu yüzden dosyayı indiremiyorum. Kimde varsa örnek dosyayı mail adresime gönderebilirmi