Makro çalıştırmamda yardımcı olur musunuz

[silkrblt]

Elimde makro kodu var ama çalıştıramıyorum ne yapmalıyım

 

[ÖmerFaruk]

Kodları tetikleyen en az bir olay vardır.
Ve hatta kodların içinde de kodun çalışmasına izin veren kod satırları olabilir.
Ayrıca çalışma kitabınızda kodları engelleyengüvenlik tedbirleri alınmış olabilir.

Aklıma gelen en basit üç temel öğeyi ve kodlarınızı görmeden sorunuza cevap verebilmek mümkün değil.

 

[silkrblt]

Kodları tetikleyen en az bir olay vardır.
Ve hatta kodların içinde de kodun çalışmasına izin veren kod satırları olabilir.
Ayrıca çalışma kitabınızda kodları engelleyengüvenlik tedbirleri alınmış olabilir.

Aklıma gelen en basit üç temel öğeyi ve kodlarınızı görmeden sorunuza cevap verebilmek mümkün değil.

Option Base 1
Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub

If Target.Column = 4 And Target.Row >= 11 Then
If Target.Value = 0 Then Exit Sub
Application.ScreenUpdating = False
Dim s1 As Worksheet, i As Byte, x As Byte, dizi()
Set s1 = ActiveSheet: x = Target.Value
ReDim dizi(x)
For i = 1 To x
rastgele = WorksheetFunction.RandBetween(-2, 2)
dizi(i) = rastgele
Next i
s1.Range("G" & Target.Row) = Join(dizi, ", ")
End If

Application.ScreenUpdating = True
End Sub

Kod bu ben makro kullanmayı çok bilmiyorum

 

[ÖmerFaruk]

Kodlar sayfada değişiklik yapınca çalışma başlar.
Private Sub Worksheet_Change(ByVal Target As Range)

Sayfada değişiklik yaptığınızda Seçili alan sadece 1 hücre değilse kodlar sonlanır.
If Selection.Count > 1 Then Exit Sub

Kodlarınız 4. satır 11.sütunda yani D11 de işlem yapılmışsa çalışır
If Target.Column = 4 And Target.Row >= 11 Then

Eğer hedefteki hücre olan D11 değeri SIFIR ise kodlar çalışmaz.
If Target.Value = 0 Then Exit Sub

 

[silkrblt]

Kodlar sayfada değişiklik yapınca çalışma başlar.
Private Sub Worksheet_Change(ByVal Target As Range)

Sayfada değişiklik yaptığınızda Seçili alan sadece 1 hücre değilse kodlar sonlanır.
If Selection.Count > 1 Then Exit Sub

Kodlarınız 4. satır 11.sütunda yani D11 de işlem yapılmışsa çalışır
If Target.Column = 4 And Target.Row >= 11 Then

Eğer hedefteki hücre olan D11 değeri SIFIR ise kodlar çalışmaz.
If Target.Value = 0 Then Exit Sub

Ben kodu vba ya girdikten sonra denilen yerde bi değişiklik olmuyor

 

[silkrblt]

nasıl aktif olacak . Vba ya kodu yazınca kaydetmem gereken bir şey yok mu

 

[ÖmerFaruk]

Eğer çalışma kitabınızda Makro Etkinse ve dosyanız xlsm uzantılı ise zaten açıldığında etkin olup olmadığına dair bir uyarı gelecektir.
onun devamında anlattığım satırları iyi okuyun. O kodlar hangi sayfaya ait o sayfa içinde olmak kaydıyla.
Sizin kodlarınız farklı bir sayfada olabilir.

 

[silkrblt]

Eğer çalışma kitabınızda Makro Etkinse ve dosyanız xlsm uzantılı ise zaten açıldığında etkin olup olmadığına dair bir uyarı gelecektir.
onun devamında anlattığım satırları iyi okuyun. O kodlar hangi sayfaya ait o sayfa içinde olmak kaydıyla.
Sizin kodlarınız farklı bir sayfada olabilir.

makronun etkin olduğunu nasıl anlıycam

 

[ÖmerFaruk]

Dosyanızı bir paylaşım sitesine yükleyerek gönderin bakalım hocam

 

[Korhan Ayhan]

Belki faydası olabilir..

Makroları etkin kılmak.Güvenlik düzeyini düşürmek

Merhaba. Arkadaşlar excelde makroların çalışması için güvenlik düzeyini düşüğe ayarlamak gerekiyor. Excelde makroları etkin kılmak için resiml anlatım yaptım. *Önce araçları seçelim. *Makro==>Güvenlik seçelim. *En sondaki düşük önerilmez seçip ve tamam tuşuna basıp exceli kapatıp tekrar...

www.excel.web.tr

 

[AdemCan]

Merhaba ilgili kodun nasıl çalıştığını ve kullanılacağını, konu sayfasında resimli olarak açıklamıştım.

Rastgele arada formülü Hk.

Merhabalar ben 2 adet sayıyı rastgele tek hücreye yazsın istiyorum. Bunu nasıl yapabilirim. 2 Adet parçam var ve bunlara ölçü gircem o da 2 adet olmalı ve rastgele (-2,+2) olmalı

www.excel.web.tr