Arkadaşlar merhaba, =@EĞER(A6="";"";Code128(A6)) formülünü macro olarak yazmam gerekiyor.
Bunu kod olarak yazamadım yardımcı olabilecek var mı? Bu kodu formül olarak yazdığımda sayfadaki bilgileri silince formülde siliniyor ve birdaha kullanamıyorum. Macro olarak yazdığımda butona her tıkladığımda otomatik olarak gerekli hücrelere atamasını yapacağım.
Formül ile yapılan işi makro ile yapmak
-
- Mesajlar: 1
- Kayıt: 14 Ara 2023, 23:33
- Lokasyon: istanbul
- Meslek: Öğretmenlik Meslek Bilgisi Dersleri Öğretmeni
- Adınız: vedat
- Soyadınız: aslan
-
- Mesajlar: 28
- Kayıt: 08 Tem 2023, 00:56
- Meslek: Yazılım Uygulama ve Destek Elemanı
- Adınız: Zulkarneyin
- Soyadınız: Albayrak
Re: Formül ile yapılan işi makro ile yapmak
Örnek sayfanı yükle
Sub Kod128Uygulaması()
Dim hedefHucresi As Range
Set hedefHucresi = Range("A6") ' Kontrol edilecek hücre belirtiliyor
If hedefHucresi.Value = "" Then
hedefHucresi.Value = "" ' Hedef hücre boşsa boş devam et
Else
hedefHucresi.Value = Code128(hedefHucresi.Value) ' Hedef hücre doluysa, Code128 fonksiyonunu uygula
End If
End Sub
Sub Kod128Uygulaması()
Dim hedefHucresi As Range
Set hedefHucresi = Range("A6") ' Kontrol edilecek hücre belirtiliyor
If hedefHucresi.Value = "" Then
hedefHucresi.Value = "" ' Hedef hücre boşsa boş devam et
Else
hedefHucresi.Value = Code128(hedefHucresi.Value) ' Hedef hücre doluysa, Code128 fonksiyonunu uygula
End If
End Sub